

A277342


Base100 digital root of n (equivalent to repeatedly adding pairs of decimal digits starting from the least significant pair).


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


COMMENTS

Could also be called "bidigital root" of n^2.
When defining the bidigital root of a number, you must add the number's 2digit groups starting from the RIGHT. If you start from the left and your number has an even number of digits, it will be correct, but if you start from the left and your number has an odd number of digits, you'll usually be wrong. For example, if you start from the left dealing with 121, you're going to get 12 + 1 = 13, not 21 + 1 = 22. (In fact, the number you'll have the bidigital root of is a number whose digits differ from the original number solely in that there's an additional 0 between the last 2 digits; in this case 1201.
The definition "bidigital root of n" simply produces a periodic sequence where the numbers 1 to 99 repeat in cycles of 99.


LINKS

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


EXAMPLE

a(11) = 22 because 11^2 is 121 and the bidigital root of 121 is 21 + 1 = 22.


MATHEMATICA

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


PROG

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


CROSSREFS

Cf. A010888.
Sequence in context: A069940 A153211 A118881 * A098733 A068522 A048385
Adjacent sequences: A277339 A277340 A277341 * A277343 A277344 A277345


KEYWORD

nonn,base


AUTHOR

J. Lowell, Oct 09 2016


EXTENSIONS

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


STATUS

approved



