A165886 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

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

(list; graph; refs; listen; history; text; internal format)

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