A066793 The start of a record-breaking run of consecutive integers with an even number of prime factors.
1, 9, 14, 33, 54, 140, 213, 1934, 35811, 38405, 200938, 389409, 1792209, 5606457, 8405437, 68780189, 880346227, 85910903650, 87635944146, 284340107954, 2195312273836, 2864568747364, 3155591650029
Offset: 1
Keywords
Programs
-
Mathematica
Table[SequencePosition[If[EvenQ[#],1,0]&/@PrimeOmega[Range[40000]],PadRight[{},n,1],1][[All,1]],{n,14}]//Flatten//Union (* The program generates the first 10 terms of the sequence. *) (* Harvey P. Dale, Sep 06 2022 *)
Extensions
Except for first 4 or 5 terms, computed by Shyam Sunder Gupta, Jan 26 2002
a(12) and a(14) corrected and a(18)-a(20) from Donovan Johnson, Oct 11 2010
a(21)-a(23) from Giovanni Resta, Aug 01 2013
Comments