A351032 a(n) = Product_{d|n, d<n} A019565(A291759(d)).

1, 1, 1, 2, 1, 2, 1, 4, 1, 2, 1, 24, 1, 6, 1, 8, 1, 12, 1, 8, 3, 6, 1, 480, 1, 2, 1, 72, 1, 120, 1, 16, 3, 2, 3, 480, 1, 2, 1, 32, 1, 216, 1, 120, 5, 6, 1, 13440, 3, 60, 1, 120, 1, 168, 3, 1440, 1, 6, 1, 144000, 1, 10, 3, 32, 1, 1080, 1, 8, 3, 72, 1, 26880, 1, 10, 75, 24, 9, 1080, 1, 128, 7, 10, 1, 86400, 1, 30, 3

Offset

1,4

Links

Table of n, a(n) for n=1..87.

Index entries for sequences computed from indices in prime factorization

Prog

(PARI)
A019565(n) = { my(m=1, p=1); while(n>0, p = nextprime(1+p); if(n%2, m *= p); n >>= 1); (m); };
A048673(n) = { my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); (1+factorback(f))/2; };
A289814(n) = { my(d=digits(n, 3)); fromdigits(vector(#d, i, if (d[i]==2, 1, 0)), 2); } \\ From A289814
A291759(n) = A289814(A048673(n));
A351032(n) = { my(m=1); fordiv(n, d, if(d<n, m *= A019565(A291759(d)))); (m); };

Crossrefs

Cf. A019565, A048673, A289814, A291759, A351030, A351031, A351034 (rgs-transform).

Cf. also A293222.

Sequence in context: A360112 A333570 A363320 * A280726 A256607 A256608

Adjacent sequences: A351029 A351030 A351031 * A351033 A351034 A351035

Keyword

nonn

Author

Antti Karttunen, Jan 29 2022

Status

approved