A278249 Least number with the prime signature of A000123(n), the number of partitions of 2n into powers of 2.

1, 2, 4, 6, 6, 6, 12, 6, 36, 6, 60, 6, 6, 30, 60, 6, 6, 30, 12, 210, 210, 180, 12, 30, 12, 30, 900, 60, 6, 6, 60, 30, 12, 210, 720, 30, 420, 30, 60, 6, 12, 30, 60, 6, 6, 60, 60, 30, 60, 210, 2520, 210, 210, 30, 180, 210, 60, 120, 60, 210, 6, 30, 60, 30, 6, 30, 60, 30, 6, 30, 12, 30, 60, 30, 420, 210, 60, 30, 420, 60, 6, 30, 2520, 30, 30, 210, 12, 210, 60, 210

Offset

0,2

Links

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

Formula

a(n) = A046523(A000123(n)).

Prog

(PARI)
A000123(n) = if(n<1, n==0, A000123(n\2)+A000123(n-1)); \\ From M. F. Hasler, Apr 30 2009 (?)
A046523(n) = my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]) \\ From Charles R Greathouse IV, Aug 17 2011
A278249(n) = A046523(A000123(n));
for(n=0, 321, write("b278249.txt", n, " ", A278249(n)));
(Scheme) (define (A278249 n) (A046523 (A000123 n)))

Crossrefs

Cf. A000123, A046523.

Cf. also A278241.

Sequence in context: A361689 A078611 A211376 * A339743 A131450 A114218

Adjacent sequences: A278246 A278247 A278248 * A278250 A278251 A278252

Keyword

nonn

Author

Antti Karttunen, Nov 22 2016

Status

approved