login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A320107 a(n) = A001227(A252463(n)). 9
1, 1, 1, 1, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 1, 2, 3, 2, 2, 2, 2, 2, 2, 3, 2, 1, 2, 2, 4, 2, 1, 2, 2, 4, 3, 2, 2, 2, 2, 2, 4, 2, 2, 2, 2, 2, 2, 3, 3, 2, 2, 2, 4, 4, 2, 2, 2, 2, 4, 2, 2, 2, 1, 4, 4, 2, 2, 2, 4, 2, 3, 2, 2, 3, 2, 4, 4, 2, 2, 1, 2, 2, 4, 4, 2, 2, 2, 2, 6, 4, 2, 2, 2, 4, 2, 2, 3, 2, 3, 2, 4, 2, 2, 4 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,5

COMMENTS

Records 1, 2, 3, 4, 6, 8, 9, 12, 16, 18, 20, 24, 32, 36, 40, ... occur at n = 1, 5, 18, 30, 90, 210, 450, 630, 1890, 3150, 5670, 6930, 20790, 34650, 62370, ...

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(n) = A001227(A252463(n)).

a(1) = a(2) = 1; for n > 2, a(n) = a(n/2) when n == 0 mod 4, a(n) = A051064(n) * a(n/2) when n == 2 mod 4, a(n) = a(A064989(n)), when n == 3 mod 6, otherwise a(n) = A055457(n) * a(A064989(n)).

For n > 2, let p = A252463(n). If p is even, then a(n) = a(p), if p is odd, then a(n) = A051064(p) * a(p).

PROG

(PARI)

A001227(n) = numdiv(n>>valuation(n, 2));

A064989(n) = {my(f); 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)};

A252463(n) = if(!(n%2), n/2, A064989(n));

A320107(n) = A001227(A252463(n));

(PARI)

A051064(n) = if(n<1, 0, 1+valuation(n, 3));

A320107(n) = if(n<=2, 1, my(p=A252463(n)); if(!(p%2), A320107(p), A051064(p)*A320107(p)));

(PARI)

A051064(n) = if(n<1, 0, 1+valuation(n, 3));

A055457(n) = if(n<1, 0, 1+valuation(n, 5));

A064989(n) = {my(f); 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)};

A320107(n) = if(n<=2, 1, if(!(n%4), A320107(n/2), if(2==(n%4), A051064(n)*A320107(n/2), if(!(n%3), A320107(A064989(n)), A055457(n)*A320107(A064989(n))))));

CROSSREFS

Cf. A001227, A005940, A051064, A055457, A252463, A320106 (Möbius transform).

Cf. also A320111 and A319699, A319700, A319703, A319989.

Sequence in context: A091237 A143477 A214774 * A190321 A238890 A266968

Adjacent sequences:  A320104 A320105 A320106 * A320108 A320109 A320110

KEYWORD

nonn

AUTHOR

Antti Karttunen, Nov 22 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 17 12:47 EDT 2019. Contains 328112 sequences. (Running on oeis4.)