OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..442 (* All terms up to the 10 millionth prime. *)
FORMULA
a(n) = A030086(n)^2. - Robert Israel, Nov 02 2022
MAPLE
R:= NULL: count:= 0: p:= 0:
while count < 40 do
p:= nextprime(p);
ps:= p^2;
if convert(convert(p, base, 10), set) intersect convert(convert(ps, base, 10), set) = {} then
R:= R, ps; count:= count+1
fi
od:
R; # Robert Israel, Nov 02 2022
MATHEMATICA
Select[Prime[Range[250]], Intersection[IntegerDigits[#], IntegerDigits[#^2]]=={}&]^2 (* Harvey P. Dale, May 18 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved