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

Author

Antti Karttunen, Nov 22 2016

Keywords

• nonn

Links

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

Crossrefs

Cf. A000123, A046523.

Cf. also A278241.

Programs

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)))

Formula

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