OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..21 (terms < 10^24)
EXAMPLE
264^2 = 69|69|6 in base 10.
15020242915^2 = 225607697|225607697|225 in base 10.
36363636364^2 = 13223140496|13223140496 in base 10.
MATHEMATICA
psq[b_, nd_] := Block[{sq={}, r, x}, Do[r = Mod[nd, p]; Do[x = (b^( Floor[nd/p] p) - 1)/(b^p - 1) t b^r + Floor[t/b^(p - r)]; If[ IntegerQ@ Sqrt@ x, AppendTo[ sq, x]], {t, b^(p - 1), b^p - 1}], {p, nd/2}]; sq]; Union @@ (psq[10, #] & /@ Range[11]) (* Giovanni Resta, Aug 01 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Apr 25 2002
EXTENSIONS
Corrected and extended by Jason Earls, Jun 16 2002
Data corrected and extended by Giovanni Resta, Aug 01 2018
STATUS
approved