|
|
A039679
|
|
Palindromic and prime Fibonacci-lucky numbers.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Vit Planocka (planocka(AT)mistral.cz), Sep 13 2003
|
|
STATUS
|
approved
|
|
|
|