OFFSET
1,1
FORMULA
a(n) = A030134(n)^2. - Andrew Howroyd, Aug 13 2024
MATHEMATICA
Select[Range[101*10^6]^2, Length[Union[Total/@TakeDrop[IntegerDigits[#], -1]]] == 1&] (* Harvey P. Dale, Aug 26 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Feb 15 2000
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 13 2024
STATUS
approved