OFFSET
1,1
COMMENTS
There are three prime numbers {13147, 20089, 21397} and corresponding squares {172843609, 403567921, 457831609} necessarily contain zero (otherwise n and n^2 are divisible by 3). - Zak Seidov, Jan 18 2012
LINKS
Sean A. Irvine, Table of n, a(n) for n = 1..10000 (terms 1..83 from Zak Seidov)
MAPLE
f := []; for i from 0 to 200 do if nops({op(convert(i^2, base, 10))})=9 then f := [op(f), i] fi; od; f;
MATHEMATICA
okQ[n_] := Module[{n2=n^2}, Max[DigitCount[n2, 10]]==1 && IntegerLength[n2]==9]; Select[Range[20000], okQ] (* Harvey P. Dale, Mar 20 2011 *)
PROG
(Python)
from itertools import count, islice
def agen(): yield from (k for k in count(10**4) if len(set(str(k*k)))==9)
print(list(islice(agen(), 37))) # Michael S. Branicky, May 24 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Asher Auel, Feb 28 2000
STATUS
approved