A335423 a(n) = A005940(1+A248663(n)).

1, 2, 3, 1, 5, 4, 7, 2, 1, 6, 11, 3, 13, 10, 9, 1, 17, 2, 19, 5, 15, 14, 23, 4, 1, 22, 3, 7, 29, 8, 31, 2, 21, 26, 25, 1, 37, 34, 33, 6, 41, 12, 43, 11, 5, 38, 47, 3, 1, 2, 39, 13, 53, 4, 35, 10, 51, 46, 59, 9, 61, 58, 7, 1, 55, 20, 67, 17, 57, 18, 71, 2, 73, 62, 3, 19, 49, 28, 79, 5, 1, 74, 83, 15, 65, 82, 69, 14, 89, 6

Offset

1,2

Links

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

Formula

a(n) = A005940(1+A248663(n)) = A005940(1+A048675(A007913(n))).

Prog

(PARI)
A048675(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; };
A248663(n) = A048675(core(n));
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t };
A335423(n) = A005940(1+A248663(n));

Crossrefs

Cf. A005940, A007913, A048675, A248663, A335424, A335425.

Sequence in context: A060116 A347120 A319068 * A345011 A345012 A345145

Adjacent sequences: A335420 A335421 A335422 * A335424 A335425 A335426

Keyword

nonn

Author

Antti Karttunen, Jun 13 2020

Status

approved