A354350 a(n) = n + A354365(n).

2, 0, 0, 4, 0, 9, 0, 8, 9, 20, 0, 12, 0, 28, 20, 16, 0, 18, 0, 20, 42, 44, 0, 24, 25, 52, 27, 28, 0, 25, 0, 32, 66, 68, 42, 36, 0, 76, 78, 40, 0, 21, 0, 44, 45, 92, 0, 48, 49, 50, 102, 52, 0, 54, 110, 56, 114, 116, 0, 60, 0, 124, 63, 64, 130, 33, 0, 68, 138, 56, 0, 72, 0, 148, 75, 76, 88, 39, 0, 80, 81, 164, 0, 84, 170

Offset

1,1

Links

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

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

Index entries for sequences computed from indices in prime factorization

Formula

a(n) = n + A354365(n).

Prog

(PARI)
A064989(n) = { my(f = factor(n)); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f); };
A354350(n) = (n+numerator((moebius(n)*n)/A064989(n)));

Crossrefs

Cf. A008683, A055615, A064989, A354365.

Sequence in context: A349345 A349357 A071390 * A323884 A061669 A324641

Adjacent sequences: A354347 A354348 A354349 * A354351 A354352 A354353

Keyword

nonn

Author

Antti Karttunen, Jun 07 2022

Status

approved