A277342 a(n) = b(n^2) where b(n) = n-99*floor((n-1)/99).

0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 1, 22, 45, 70, 97, 27, 58, 91, 27, 64, 4, 45, 88, 34, 81, 31, 82, 36, 91, 49, 9, 70, 34, 99, 67, 37, 9, 82, 58, 36, 16, 97, 81, 67, 55, 45, 37, 31, 27, 25, 25, 27, 31, 37, 45, 55, 67, 81, 97, 16, 36, 58, 82, 9, 37, 67, 99, 34, 70, 9, 49, 91, 36, 82, 31, 81, 34, 88, 45, 4, 64, 27, 91, 58, 27, 97, 70, 45, 22, 1, 81, 64, 49, 36, 25, 16, 9, 4, 1

Offset

0,3

Links

Indranil Ghosh, Table of n, a(n) for n = 0..990

Mathematica

Table[NestWhile[Total@ IntegerDigits[#, 100] &, n^2, IntegerLength@ # >= 3 &], {n, 0, 98}] (* Michael De Vlieger, Oct 14 2016 *)

Prog

(PARI) bdr(n) = n-99*floor((n-1)/99);
a(n) = bdr(n^2); \\ Michel Marcus, Oct 10 2016

Crossrefs

Cf. A010888.

Sequence in context: A153211 A118881 A370812 * A098733 A068522 A048385

Adjacent sequences: A277339 A277340 A277341 * A277343 A277344 A277345

Keyword

nonn,base,easy,changed

Author

J. Lowell, Oct 09 2016

Extensions

Replaced definition with simpler definition from Michael De Vlieger. - N. J. A. Sloane, Nov 05 2016

New name from Joerg Arndt, Mar 08 2025

Status

approved