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,2

Links

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

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

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).

Prog

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

Crossrefs

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

Sequence in context: A147966 A351923 A341944 * A086469 A087030 A175187

Adjacent sequences: A332991 A332992 A332993 * A332995 A332996 A332997

Keyword

nonn

Author

Antti Karttunen, Apr 04 2020

Status

approved