OFFSET
0,1
LINKS
Sean A. Irvine, Table of n, a(n) for n = 0..100
MATHEMATICA
a[n_] := Block[{k = (10^(n + 1) - 1)/9}, While[m = FromDigits[ Join[ IntegerDigits[k], Reverse[ Drop[ IntegerDigits[k], -1]]]]; !PrimeQ[m], k++ ]; m]; Table[ a[n], {n, 0, 13}]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jun 21 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 21 2002
More terms from Sean A. Irvine, Jul 28 2024
STATUS
approved