OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..100000
EXAMPLE
From n = 12 we can reach any of the following numbers > 0: 12 (with an empty sequence of transitions), 8 (as A051953(12) = 8), 4 (as A009195(12) = A009195(8) = A051953(8) = 4), 2 (as A009195(4) = A051953(4) = 2) and 1 (as A009195(2) = A051953(2) = 1), thus a(12) = 5.
The directed acyclic graph formed from those two transitions with 12 as its unique root looks like this:
12
/ \
| 8
\ /
4
|
2
|
1
PROG
(PARI)
A326198aux(n, xs) = if(vecsearch(xs, n), xs, xs = setunion([n], xs); if(1==n, xs, my(a=gcd(n, eulerphi(n)), b=n-eulerphi(n)); xs = A326198aux(a, xs); if((a==b), xs, A326198aux(b, xs))));
A326198(n) = length(A326198aux(n, Set([])));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 24 2019
STATUS
approved