OFFSET
1,1
COMMENTS
a(17) > 4*10^12.
EXAMPLE
prime(20+921000803) = 20921000803.
MATHEMATICA
Reap[Do[k = 1; p = Prime@n; While[(k *= 10) < p, If[Mod[p, k] + Floor[p/k] == n, Sow@p]], {n, 9000}]][[2, 1]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jul 22 2013
STATUS
approved