OFFSET
0,1
LINKS
Robert Israel, Table of n, a(n) for n = 0..250
MAPLE
f:= proc(n) option remember; local q, d, v;
q:=procname(n-1);
for d from 1 do
v:= nextprime(q*10^d);
if v < (q+1)*10^d then return v fi
od
end proc:
f(0):= 7:
map(f, [$0..20]); # Robert Israel, Jan 26 2020
MATHEMATICA
Nest[Function[{a, n}, Append[#, Catch@ Do[Do[If[PrimeQ@ #, Throw@ #; Break[], #] &@ FromDigits[n~Join~PadLeft[IntegerDigits[(5 j - 4 + Mod[3 j + 2, 4])/2], i]], {j, 4*10^(i - 1)}], {i, Infinity}]]] @@ {#, IntegerDigits[#[[-1]] ]} &, {7}, 17] (* Michael De Vlieger, Jan 26 2020 *)
PROG
(PARI)
next_A048552(p)=for(i=1, oo, my(q=nextprime(p*=10)); q-p>10^i||return(q))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, May 15 1999
STATUS
approved