OFFSET
1,2
COMMENTS
Squares resulting in leading zeros are excluded.
A090843 is a subsequence. - Chai Wah Wu, Apr 23 2022
LINKS
Eric Weisstein's World of Mathematics, Square Number
EXAMPLE
11303148^2 = {1}27761154709904 -> 277611547099041{1} = 16661679^2.
MATHEMATICA
rlsQ[n_]:=Module[{idnrl=RotateLeft[IntegerDigits[n^2]]}, First[idnrl]>0 && IntegerQ[Sqrt[FromDigits[idnrl]]]]; Select[Range[11000000], rlsQ] (* Harvey P. Dale, Nov 03 2013 *)
PROG
(Python)
from itertools import count, islice
from sympy.solvers.diophantine.diophantine import diop_DN
def A045878_gen(): # generator of terms
for l in count(0):
l1, l2 = 10**(l+1), 10**l
yield from sorted(set(abs(y) for z in (diop_DN(10, m*(1-l1)) for m in range(10)) for x, y in z if l1 >= x**2 >= l2))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Patrick De Geest, Nov 15 1998
STATUS
approved