%I A039679
%S A039679 2,5,7,11,101,131,151,181,353,757,787,919,929,10501,12721,14341,16661,
%T A039679 17471,17971,18181,18481,19991,30803,31513,32323,35053,36263,36563,
%U A039679 38083,38783,70207,70507,70607,71317,71917,74747,76667,79997,93739
%N A039679 Palindromic and prime Fibonacci-lucky numbers.
%C A039679 See A039672 for definition.
%t A039679 t = Fold[Delete[ #1, Thread[{Rest[Range[0, Length@#1, #1[[ #2]] + #1[[ 
               #2 + 1]]]]}]] &, Range@100000, Range@1000]; Select[t, PrimeQ@# && 
               #==FromDigits@ Reverse@ IntegerDigits@# &] (from Robert G. Wilson 
               v (rgwv(at)rgwv.com), May 12 2006)
%Y A039679 Sequence in context: A038955 A141064 A131102 this_sequence A088823 A007445 
               A159699
%Y A039679 Adjacent sequences: A039676 A039677 A039678 this_sequence A039680 A039681 
               A039682
%K A039679 nonn
%O A039679 1,1
%A A039679 Felice Russo (felice.russo(AT)katamail.com)
%E A039679 Corrected by Naohiro Nomoto (n_nomoto(AT)yabumi.com), Oct 28 2001
%E A039679 More terms from Vit Planocka (planocka(AT)mistral.cz), Sep 13 2003