cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A278249 #9 Nov 22 2016 21:49:42
%S A278249 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,
%T A278249 900,60,6,6,60,30,12,210,720,30,420,30,60,6,12,30,60,6,6,60,60,30,60,
%U A278249 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
%N A278249 Least number with the prime signature of A000123(n), the number of partitions of 2n into powers of 2.
%H A278249 Antti Karttunen, <a href="/A278249/b278249.txt">Table of n, a(n) for n = 0..321</a>
%F A278249 a(n) = A046523(A000123(n)).
%o A278249 (PARI)
%o A278249 A000123(n) = if(n<1, n==0, A000123(n\2)+A000123(n-1)); \\ From _M. F. Hasler_, Apr 30 2009 (?)
%o A278249 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
%o A278249 A278249(n) = A046523(A000123(n));
%o A278249 for(n=0, 321, write("b278249.txt", n, " ", A278249(n)));
%o A278249 (Scheme) (define (A278249 n) (A046523 (A000123 n)))
%Y A278249 Cf. A000123, A046523.
%Y A278249 Cf. also A278241.
%K A278249 nonn
%O A278249 0,2
%A A278249 _Antti Karttunen_, Nov 22 2016