# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a278250
Showing 1-1 of 1

%I A278250 #8 Dec 19 2016 02:07:13
%S A278250 1,1,1,2,2,6,2,2,6,12,12,6,2,2,60,30,2,6,120,6,6,180,2,12,30,210,6,2,
%T A278250 2,30,210,6,30,900900,30,180,24,210,60060,210,13860,120,210,210,210,
%U A278250 96,30,60060,6126120,2310,30,60,2310,2310,30,4620,210,240,210,120,30,60,2,1260,30,30,2310,2310,60,18480,30,2310,420,30,2310,18480,30,3360,210,2,420,30
%N A278250 Least number with the prime signature of the n-th Wedderburn-Etherington number (A001190).
%H A278250 Antti Karttunen, <a href="/A278250/b278250.txt">Table of n, a(n) for n = 1..213</a>
%F A278250 a(n) = A046523(A001190(n)).
%o A278250 (PARI)
%o A278250 {A001190(n) = local(A); if( n<4, n>0, A = vector(n, i, 1); for( i=4, n, A[i] = sum( j=1, (i-1)\2, A[j] * A[i-j]) + if( i%2, 0, A[i/2] * (A[i/2] + 1)/2)); A[n])}; /* _Michael Somos_, Mar 25 2006 */
%o A278250 A046523(n) = my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]) \\ _Charles R Greathouse IV_, Aug 17 2011
%o A278250 A278250(n) = A046523(A001190(n));
%o A278250 for(n=1, 213, write("b278250.txt", n, " ", A278250(n)));
%o A278250 (Scheme) (define (A278250 n) (A046523 (A001190 n)))
%Y A278250 Cf. A001190, A046523.
%Y A278250 Cf. also A278258.
%K A278250 nonn
%O A278250 1,4
%A A278250 _Antti Karttunen_, Nov 22 2016

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE