OFFSET
1,1
COMMENTS
See A039672 for definition.
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
Corrected by Naohiro Nomoto, Oct 28 2001
More terms from Vit Planocka (planocka(AT)mistral.cz), Sep 13 2003
STATUS
approved