A329038 a(n) = A246277(A276086(n)).

0, 1, 1, 3, 2, 9, 1, 5, 3, 15, 6, 45, 2, 25, 9, 75, 18, 225, 4, 125, 27, 375, 54, 1125, 8, 625, 81, 1875, 162, 5625, 1, 7, 5, 21, 10, 63, 3, 35, 15, 105, 30, 315, 6, 175, 45, 525, 90, 1575, 12, 875, 135, 2625, 270, 7875, 24, 4375, 405, 13125, 810, 39375, 2, 49, 25, 147, 50, 441, 9, 245, 75, 735, 150, 2205, 18, 1225, 225, 3675, 450, 11025, 36

Offset

0,4

Links

Antti Karttunen, Table of n, a(n) for n = 0..2310

Antti Karttunen, Data supplement: n, a(n) computed for n = 0..32768

Index entries for sequences computed from indices in prime factorization

Index entries for sequences related to primorial base

Formula

a(n) = A246277(A276086(n)).

For n >= 1, A046523(2*a(n)) = A278226(n).

Prog

(PARI)
A246277(n) = if(1==n, 0, my(f = factor(n), k = primepi(f[1, 1])-1); for (i=1, #f~, f[i, 1] = prime(primepi(f[i, 1])-k)); factorback(f)/2);
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A329038(n) = A246277(A276086(n));

Crossrefs

Cf. A046523, A246277, A276086, A278226, A329048 (rgs-transform).

Cf. also A329345.

Sequence in context: A335228 A228492 A340875 * A272491 A010271 A291777

Adjacent sequences: A329035 A329036 A329037 * A329039 A329040 A329041

Keyword

nonn

Author

Antti Karttunen, Nov 08 2019

Status

approved