# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a330507
Showing 1-1 of 1
%I A330507 #43 Mar 16 2020 09:16:49
%S A330507 2,6,10,18,24,30,51,57,69,60,99,111,123,143,147,159,177,189,201,213,
%T A330507 225,245,255,267,291,303,309,321,345,357,381,393,411,427,447,465,471,
%U A330507 493,507,519,537,553,573,583,623,621,633,669,681,695,707,729,749,753,783
%N A330507 a(n) is the smallest number k having for every prime p <= prime(n) at least one prime partition with least part p, and no such partition having least part > prime(n). If no such k exists then a(n) = 0 (see comments).
%C A330507 Alternatively, a(n) is the smallest number whose product of distinct least part primes from all partitions of n into prime parts, is equal to primorial(n).
%C A330507 2 is the only prime term.
%C A330507 a(n) = 0 for n = 90, 151, 349, 352, 444, ... . - _Alois P. Heinz_, Mar 12 2020
%H A330507 Alois P. Heinz, Table of n, a(n) for n = 1..500
%H A330507 Michael De Vlieger, Labeled plot of p at (pi(p), n), for 2 <= n <= 240, with k in a(n) shown in red.
%e A330507 a(1) = 2 because [2] is the only prime partition of prime(1) = 2.
%e A330507 a(2) = 6 because [2,2,2] and [3,3] are the only possible prime partitions of 6, namely with prime(1) and prime(2) the only least parts.
%p A330507 b:= proc(n, p, t) option remember; `if`(n=0, 1, `if`(p>n, 0, (q->
%p A330507 add(b(n-p*j, q, 1), j=1..n/p)*t^p+b(n, q, t))(nextprime(p))))
%p A330507 end:
%p A330507 a:= proc(n) option remember; local f, k, p; p:= ithprime(n);
%p A330507 for k to 4*p do f:= b(k, 2, x); if degree(f)<= p and andmap(
%p A330507 h->0