OFFSET
1,1
COMMENTS
Primes in this sequence include a(4) = 157, a(28) = 937, a(41) = 1373, a(45) = 1487, a(49) = 1609.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..3000
FORMULA
EXAMPLE
MATHEMATICA
Module[{nn=1000, p1, p2, p3, p4, p5, len}, p1=Prime[Range[nn]]; p2= Select[ Range[ nn], PrimeOmega[ #] ==2&]; p3=Select[ Range[nn], PrimeOmega[ #]==3&]; p4=Select[ Range[ nn], PrimeOmega[#]==4&]; p5=Select[ Range[ nn], PrimeOmega[ #]==5&]; len=Min[Length/@{p1, p2, p3, p4, p5}]; Total/@Thread[ {Take[ p1, len], Take[p2, len], Take[p3, len], Take[p4, len], Take[p5, len]}]] (* Harvey P. Dale, Apr 16 2015 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Feb 21 2006
EXTENSIONS
Corrected by Harvey P. Dale, Apr 16 2015
STATUS
approved