OFFSET
1,2
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..100
MAPLE
with(numtheory);
S:=proc(s) local w; w:=convert(s, base, 10); sum(w[j], j=1..nops(w)); end:
T:=proc(t) local w, x, y; x:=t; y:=0; while x>0 do x:=trunc(x/10); y:=y+1; od; end:
P:=proc(q) local a, b, c, j, n; a:=1; j:=2; print(1);
for n from 1 to q do b:=T(a); c:=j*10^b+a;
if isprime(c) then a:=j*10^b+a; print(j); fi;
j:=j+1; od; print(); end: P(10^10);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Mar 21 2014
STATUS
approved