A332994 a(1) = 1, for n > 1, a(n) = n + a(A052126(n)).

1, 3, 4, 7, 6, 9, 8, 15, 13, 13, 12, 19, 14, 17, 19, 31, 18, 27, 20, 27, 25, 25, 24, 39, 31, 29, 40, 35, 30, 39, 32, 63, 37, 37, 41, 55, 38, 41, 43, 55, 42, 51, 44, 51, 58, 49, 48, 79, 57, 63, 55, 59, 54, 81, 61, 71, 61, 61, 60, 79, 62, 65, 76, 127, 71, 75, 68, 75, 73, 83, 72, 111, 74, 77, 94, 83, 85, 87, 80, 111, 121

Offset: 1

Author

Antti Karttunen, Apr 04 2020

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..16384
• Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Crossrefs

Cf. A000203, A052126, A322382, A332904, A332993, A333784, A333791, A333794.

Programs

PARI

A332994(n) = if(1==n,n,n + A332994(n/vecmax(factor(n)[,1])));

Formula

a(1) = 1; and for n > 1, a(n) = n + a(A052126(n)).

a(n) = n + A322382(n).

a(n) = A332993(n) - A333791(n).

a(n) = A000203(n) - A333784(n).