A307251 Numbers k for which A319100(k) sets a new record.
1, 3, 7, 21, 56, 63, 168, 252, 504, 819, 2184, 3276, 6552, 15561, 32760, 62244, 124488, 482391, 622440, 1929564, 3859128, 17848467, 19295640, 71393868, 142787736, 713938680, 3069936324, 6139872648, 30699363240, 187266115764, 337692995640, 374532231528
Offset: 1
Keywords
Examples
A319100(504) = 144 which is larger than A319100(i) for i < 504, so 144 is a term.
Programs
-
PARI
P(n) = if(!n, 1, if(n==1, 7, my(i=0,N=9); forprime(p=7, oo, if(p%3==1, i++; N*=p); if(i==n-1, return(N))))) Q(n) = if(!n, 1, if(n==1, 4, my(i=0,N=4); forprime(p=2, oo, if(p%3==2, i++; N*=p); if(i==n-1, return(N))))) v = []; for(i=0, 15, for(j=0, 15, if(P(i)*Q(j) < min(P(16), Q(16)), v=concat(v, [P(i)*Q(j)])))); v=vecsort(v); u = []; for(i=1, #v, if(sum(j=1, i-1, A319100(v[j]) >= A319100(v[i]))==0, u=concat(u, [v[i]]))); vecsort(concat(select(i->(i!=4&&i!=28&&i!=2520), u), [3, 21, 168, 2184])) \\ See A319100 for its program
Comments