|
%I #16 Jul 15 2012 12:50:55
%S 2,3,6,15,77,726,6318,189375,755968,871593371,33714015615
%N a(n) is the smallest integer j such that the numbers of prime factors (counting multiplicity) in j, j+1, ... , j+n-1 are the full set {1,2,...,n}.
%C Next term a(10) > 5*10^7. _Joerg Arndt_, Jul 14 2012
%e a(4)=15 because 15 has two prime factors, 16 has four, 17 has one and 18 has three (and 15 is the smallest number with this property).
%e a(5) = 77 because 77, 78, 79, 80 and 81 have 2, 3, 1, 5 and 4 prime factors.
%p A214343 := proc(n)
%p refs := {seq(i,i=1..n)} ;
%p for j from 1 do
%p pf := {} ;
%p for k from 0 to n-1 do
%p pf := pf union {numtheory[bigomega](j+k)} ;
%p if nops(pf) < k+1 then
%p break;
%p end if;
%p end do:
%p if pf = refs then
%p return j;
%p end if;
%p end do:
%p end proc: # _R. J. Mathar_, Jul 13 2012
%t f[n_] := f[n] = FactorInteger[n][[All, 2]] // Total;
%t n = 1;
%t i = 2;
%t While[True,
%t While[Union[Table[f[j], {j, i, i + n - 1}]] != Range[n],
%t i += 1; f[i] =.
%t ];
%t Print[i]; n += 1;
%t ];
%Y Cf. A072875, A001222.
%K nonn
%O 1,1
%A _Jake Foster_, Jul 13 2012
%E a(10)-a(11) from _Donovan Johnson_, Jul 15 2012
|
