OFFSET
1,1
PROG
(PARI) vsums(k) = {vs = []; for (j=1, #digits(k)-1, vs = concat(vs, k\10^j+k % 10^j); ); vs; }
isokvs(vs, n) = for (j=1, #vs, if (vs[j]==n, return(1))); return(0);
findp(n) = {p = prime(n); k = 10; ok = 0; while (!ok, vs = vsums(k); ok = isokvs(vs, p); if (! ok, k++); ); k; } \\ Michel Marcus, Nov 13 2015
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Giovanni Teofilatto, Nov 01 2015
EXTENSIONS
More terms and better definition from Altug Alkan, Nov 13 2015
STATUS
approved