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
Keywords
Links
- Antti Karttunen, Table of n, a(n) for n = 0..16384
Programs
-
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
-
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
Extensions
More terms from Antti Karttunen, Dec 19 2018
Comments