A334206 Fully additive with a(p) = 1 + a(A014682(p)) when p is prime and a(n*m) = a(n) + a(m) when m,n > 1.

0, 1, 5, 2, 4, 6, 11, 3, 10, 5, 10, 7, 7, 12, 9, 4, 9, 11, 14, 6, 16, 11, 16, 8, 8, 8, 15, 13, 13, 10, 31, 5, 15, 10, 15, 12, 15, 15, 12, 7, 33, 17, 12, 12, 14, 17, 30, 9, 22, 9, 14, 9, 9, 16, 14, 14, 19, 14, 22, 11, 19, 32, 21, 6, 11, 16, 19, 11, 21, 16, 29, 13, 16, 16, 13, 16, 21, 13, 21, 8, 20, 34, 13, 18, 13, 13, 18, 13, 21

Offset

1,3

Links

Antti Karttunen, Table of n, a(n) for n = 1..20879

Index entries for sequences related to 3x+1 (or Collatz) problem

Prog

(PARI)
A014682(n) = (if(n%2, 3*n+1, n)/2);
A334206(n) = if(1==n, n-1, if(isprime(n), 1+A334206(A014682(n)), my(f=factor(n)); (apply(A334206, f[, 1])~ * f[, 2])));

Crossrefs

Cf. A014682.

Cf. also A064097, A334200.

Sequence in context: A202494 A112597 A257700 * A006666 A267830 A163334

Adjacent sequences: A334203 A334204 A334205 * A334207 A334208 A334209

Keyword

nonn

Author

Antti Karttunen, May 13 2020

Status

approved