OFFSET
0,1
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
a(n) = A084413(n^3). - Sean A. Irvine, Apr 14 2026
MAPLE
f:= proc(n) local k, r, p, d;
for k from 1 do
d:= 1+ilog10(k);
r:= tcat(k, n)*10^d;
p:= nextprime(r);
if p - r < 10^d then return p fi
od
end proc:
f(0):= 101:
map(f, [$0..100]); # Robert Israel, Apr 17 2026
PROG
(PARI) a(n) = {n = n^3; for (i = 1, 9, forstep (j=1, 9, 2, v = j + 10*n + i*10^(1+length(Str(n))); if (isprime(v), return (v)); ); ); } \\ Michel Marcus, Oct 05 2013
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Jun 27 2003
EXTENSIONS
More terms from Michel Marcus, Oct 05 2013
STATUS
approved
