A165886 a(n) = A165641(n+1)/A165641(n).

1, 6, 1, 60, 1, 42, 1, 120, 1, 66, 1, 5460, 1, 6, 1, 4080, 1, 798, 1, 660, 1, 138, 1, 10920, 1, 6, 1, 1740, 1, 14322, 1, 8160, 1, 6, 1, 3838380, 1, 6, 1, 54120, 1, 1806, 1, 1380, 1, 282, 1, 371280, 1, 66, 1, 3180, 1, 798, 1, 3480, 1, 354, 1, 113573460, 1, 6, 1, 16320, 1, 64722, 1, 60, 1, 4686, 1, 560403480, 1, 6

Offset

0,2

Comments

Conjecture: a(n)/A141459(n+1) = A006519(n+1).

The conjecture is correct at least up to n<=2000. - R. J. Mathar, Jul 04 2011

Links

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

Maple

A001316 := proc(n) 2^A000120(n) ; end proc:
A165641 := proc(n) A091137(n)/A001316(n) ; end proc:
A165886 := proc(n) A165641(n+1)/A165641(n) ; end proc:
seq(A165886(n), n=0..60) ; # R. J. Mathar, Jul 04 2011

Prog

(PARI)
A001316(n) = 2^hammingweight(n);
A091137(n) = { my(r=1); forprime(p=2, n+1, r*=p^(n\(p-1))); (r); }; \\ From A091137
A165641(n) = (A091137(n)/A001316(n));
A165886(n) = (A165641(n+1)/A165641(n)); \\ Antti Karttunen, Dec 19 2018, after Maple-program

Crossrefs

Sequence in context: A347211 A083837 A049213 * A339100 A344918 A174502

Adjacent sequences: A165883 A165884 A165885 * A165887 A165888 A165889

Keyword

nonn

Author

Paul Curtz, Sep 29 2009

Extensions

More terms from Antti Karttunen, Dec 19 2018

Status

approved