login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A308190 Number of steps to reach 5 when iterating x -> A111234(x) starting at x=n. 6
0, 1, 3, 2, 2, 4, 4, 3, 4, 3, 3, 5, 6, 5, 5, 4, 5, 5, 5, 4, 5, 4, 4, 6, 8, 7, 7, 6, 4, 6, 4, 5, 7, 6, 6, 6, 7, 6, 6, 5, 6, 6, 6, 5, 4, 5, 5, 7, 10, 9, 6, 8, 6, 8, 8, 7, 6, 5, 5, 7, 6, 5, 7, 6, 5, 8, 8, 7, 8, 7, 7, 7, 6, 8, 8, 7, 8, 7, 7, 6, 6, 7, 7, 7, 8, 7, 5, 6, 7, 5, 5, 6, 7, 6, 6, 8, 12 (list; graph; refs; listen; history; text; internal format)
OFFSET
5,3
COMMENTS
It is easy to show that every number n >= 5 eventually reaches 5. This was conjectured by Ali Sada. For A111234 sends a composite n > 5 to a smaller number, and sends a prime > 5 to a smaller number in two steps. Furthermore no number >= 5 can reach a number less than 5. So all numbers >= 5 eventually reach 5.
REFERENCES
Ali Sada, Email to N. J. A. Sloane, Jun 13 2019.
LINKS
MATHEMATICA
a[n_] := Module[{c = 0, x = n, y}, While[x != 5, y = Min[FactorInteger[x][[All, 1]]]; x = y + Quotient[x, y]; c++]; c];
Table[a[n], {n, 5, 100}] (* Jean-François Alcover, Jun 15 2019, from Python *)
PROG
(Python)
from sympy import factorint
def A308190(n):
c, x = 0, n
while x != 5:
y = min(factorint(x))
x = y + x//y
c += 1
return c # Chai Wah Wu, Jun 14 2019
CROSSREFS
Sequence in context: A216161 A332502 A287870 * A235354 A058743 A117970
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jun 14 2019
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 25 01:35 EDT 2024. Contains 371964 sequences. (Running on oeis4.)