A077347 Final terms of rows of A077346.
1, 225, 361, 441, 5329, 6400, 7744, 80089, 90000, 101124, 112896, 122500, 135424, 145924, 157609, 165649, 179776, 1806336, 1901641, 2013561, 2114116, 2220100, 2325625, 2427364, 2528100, 2637376, 2742336, 2845969, 2951524, 3059001
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
startsWith := proc(n,dig) local nshft ; nshft := n ; while nshft > dig do nshft := floor(nshft/10) ; od ; if dig = nshft then RETURN(true) ; else RETURN(false) ; fi ; end: A077347 := proc(n) local candid,c; candid := 1 ; for c from 1 to n do while not startsWith(candid^2,n) do candid := candid+1 ; od ; if c = n then RETURN(candid^2) ; fi ; candid := candid+1 ; od ; end: for n from 1 to 50 do printf("%a,",A077347(n)) ; od ; # R. J. Mathar, Nov 12 2006
Extensions
More terms from R. J. Mathar, Nov 12 2006
Comments