OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..300
MAPLE
R:= 2, 3: p:= 23: x:= 3:
for count from 3 to 100 do
for y from x by 2 do
if isprime(10^(1+ilog10(y))*p+y) then
R:= R, y; p:= 10^(1+ilog10(y))*p+y; x:= y;
break
fi
od od:
R; # Robert Israel, Nov 22 2020
MATHEMATICA
a[1] = 2; a[n_] := a[n] = Block[{k = a[n - 1], c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k ++ ]; k]; Table[ a[n], {n, 47}] (* Robert G. Wilson v, Aug 05 2005 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Patrick De Geest, May 15 1998
More terms from Robert G. Wilson v, Aug 05 2005
STATUS
approved