OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
EXAMPLE
1429^2 = 2042041 and 1537^2 = 2362369. Thus, 1429 and 1537 are both in this sequence.
MAPLE
q:= n-> (s-> is(s[1..3]=s[4..6]))(""||(n^2)):
select(q, [$317..17000])[]; # Alois P. Heinz, Apr 22 2022
MATHEMATICA
Select[Range[317, 20000], Take[IntegerDigits[#^2], {1, 3}] == Take[IntegerDigits[#^2], {4, 6}] &]
PROG
(Python)
def ok(n): s = str(n**2); return len(s) > 5 and s[:3] == s[3:6]
print([k for k in range(20000) if ok(k)]) # Michael S. Branicky, Apr 22 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Tanya Khovanova, Apr 22 2022
STATUS
approved