OFFSET
0,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 0..10000 (terms 0..1000 from T. D. Noe)
FORMULA
a(n) = A090292(n)^(1/2).
MATHEMATICA
Table[k = n; d = IntegerDigits[n^2]; len = Length[d]; While[k++; Take[IntegerDigits[k^2], -len] != d]; k, {n, 0, 51}] (* T. D. Noe, Mar 23 2012 *)
PROG
(Python)
def a(n):
k, target = n + 1, str(n*n)
while not str(k*k).endswith(target): k += 1
return k
print([a(n) for n in range(52)]) # Michael S. Branicky, Oct 09 2021
(Python) # alternate version
from math import isqrt
def issquare(n): return isqrt(n)**2 == n
def a(n):
k, target = 1, str(n*n)
while not issquare(int(str(k)+target)): k += 1
return isqrt(int(str(k)+target))
print([a(n) for n in range(52)]) # Michael S. Branicky, Oct 09 2021
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 29 2003
EXTENSIONS
More terms from Vladeta Jovovic, Jun 18 2004
STATUS
approved