Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #8 Aug 07 2015 02:42:50
%S 1,225,361,441,5329,6400,7744,80089,90000,101124,112896,122500,135424,
%T 145924,157609,165649,179776,1806336,1901641,2013561,2114116,2220100,
%U 2325625,2427364,2528100,2637376,2742336,2845969,2951524,3059001
%N Final terms of rows of A077346.
%C a(n) = n-th square beginning with n. A018796 contains initial terms of rows. Subsidiary sequence: There can be a rearrangement of squares in groups so that the n-th group contains n squares beginning with n and not occurring earlier. E.g., the initial term of row 25 would be 256 and not 25 and accordingly the final terms would differ.
%p 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
%Y Cf. A018796, A077346, A077348, A077349.
%K base,nonn
%O 1,2
%A _Amarnath Murthy_, Nov 05 2002
%E More terms from _R. J. Mathar_, Nov 12 2006