A030088 a(n) = prime^2 and digits of prime do not appear in a(n).

4, 9, 49, 289, 841, 2209, 2809, 3481, 4489, 6241, 24649, 29929, 66049, 94249, 97969, 121801, 124609, 128881, 167281, 201601, 218089, 299209, 310249, 332929, 434281, 452929, 458329, 546121, 619369, 727609, 863041, 2093809

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

Cf. A030086.

Sequence in context: A068809 A231177 A110481 * A081069 A053967 A028945

Adjacent sequences: A030085 A030086 A030087 * A030089 A030090 A030091

Keyword

nonn,base

Author

Patrick De Geest

Status

approved