|
%I #14 Jul 14 2015 01:16:27
%S 2,5,7,11,101,131,151,181,353,757,787,919,929,10501,12721,14341,16661,
%T 17471,17971,18181,18481,19991,30803,31513,32323,35053,36263,36563,
%U 38083,38783,70207,70507,70607,71317,71917,74747,76667,79997,93739
%N Palindromic and prime Fibonacci-lucky numbers.
%C See A039672 for definition.
%t 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@# &] (* _Robert G. Wilson v_, May 12 2006 *)
%K nonn,base
%O 1,1
%A _Felice Russo_
%E Corrected by _Naohiro Nomoto_, Oct 28 2001
%E More terms from Vit Planocka (planocka(AT)mistral.cz), Sep 13 2003
|
