A039679 Palindromic and prime Fibonacci-lucky numbers.
2, 5, 7, 11, 101, 131, 151, 181, 353, 757, 787, 919, 929, 10501, 12721, 14341, 16661, 17471, 17971, 18181, 18481, 19991, 30803, 31513, 32323, 35053, 36263, 36563, 38083, 38783, 70207, 70507, 70607, 71317, 71917, 74747, 76667, 79997, 93739
Offset: 1
Programs
-
Mathematica
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 *)
Extensions
Corrected by Naohiro Nomoto, Oct 28 2001
More terms from Vit Planocka (planocka(AT)mistral.cz), Sep 13 2003
Comments