login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A177148 a(n) = number of squares of summations of digits before reaching the end of the cycle. 5
0, 0, 5, 2, 4, 4, 2, 3, 3, 1, 1, 5, 2, 4, 4, 2, 3, 3, 1, 2, 5, 2, 4, 4, 2, 3, 3, 1, 2, 5, 2, 4, 4, 2, 3, 3, 1, 2, 5, 2, 4, 4, 2, 3, 3, 1, 2, 5, 2, 2, 4, 2, 3, 3, 1, 2, 5, 2, 2, 3, 2, 3, 3, 1, 2, 5, 2, 2, 3, 2, 3, 3, 1, 2, 5, 2, 2, 3, 2, 2, 3, 1, 2, 5, 2, 2, 3, 2, 2, 4, 1, 2, 5, 2, 2, 3, 2, 2, 4, 2, 1, 5, 2, 4, 4 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

a(n) is the number of times you form the square of the sum of the digits before reaching the last number of the cycle. According to the computations with Maple program, this last number belong to the set {1,81,100,169,256}, and a(n) < = 5.

Example : 4 -> 16 -> (1+6)^2 = 49 -> (4+9)^2 = 169 -> (1+6+9)^2 = 256, and 256 is the last number of the list because 256 -> (2+5+6)^2 = 169 belong to the list.

LINKS

Table of n, a(n) for n=0..104.

EXAMPLE

0 is in the sequence twice because 0->0 and 1 -> 1 ;

5 is in the sequence because : 5 -> 25 -> 49 -> 169 -> 256, last number because 256 -> 169.

MAPLE

A177148 := proc(n)

        local traj , a, m, c;

        traj := n ;

        c := [n] ;

        while true do

                traj := A118881(traj) ;

                if member(traj, c) then

                        return nops(c)-1 ;

                end if;

                c := [op(c), traj] ;

        end do:

end proc: # R. J. Mathar, Jul 08 2012

CROSSREFS

Cf. A118881.

Sequence in context: A021660 A266122 A064853 * A188739 A265287 A257701

Adjacent sequences:  A177145 A177146 A177147 * A177149 A177150 A177151

KEYWORD

nonn,base

AUTHOR

Michel Lagneau, May 03 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 20 21:36 EST 2019. Contains 319336 sequences. (Running on oeis4.)