OFFSET
1,1
COMMENTS
Prime entries of A138131.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n, d) local L, m, k, p;
L:= convert(9^d+n, base, 9);
p:= add((1+L[d+1-i])*(10^(i-1)+10^(2*d+1-i)), i=1..d);
if isprime(p) then p fi;
end proc:
[seq(seq(f(i, d), i=0..9^d-1), d=1..3)]; # Robert Israel, Feb 18 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Mar 15 2008
STATUS
approved