A098048 Numbers k such that A098037(k) sets a new record. A098037 is the number of prime divisors (counting multiplicity) of the sums of two consecutive primes.

1, 2, 5, 16, 18, 43, 162, 190, 532, 564, 3314, 3908, 10499, 30789, 53828, 62946, 278737, 364195, 629686, 3768344, 7827416, 9496221, 23159959, 68035462, 92566977, 370110663, 648634305, 4032924162, 7748432257, 17324573653, 19879357650, 34988238805

Offset: 1

Author

Jason Earls, Sep 11 2004

Keywords

• nonn
• more

Crossrefs

Cf. A001043, A001222, A098037.

Programs

Mathematica

s = PrimeOmega[Total[#]] & /@ Partition[Prime[Range[10^5]], 2, 1]; Map[FirstPosition[s, #][[1]] &, Union@FoldList[Max, s]] (* Amiram Eldar, Feb 07 2020 *)
With[{nn=10^6},DeleteDuplicates[Thread[{Range[nn-1],PrimeOmega[Total[#]]&/@Partition[Prime[ Range[nn]],2,1]}],GreaterEqual[ #1[[2]],#2[[2]]]&][[;;,1]]] (* The program generates the first 19 terms of the sequence. *) (* Harvey P. Dale, Sep 20 2024 *)

Extensions

a(17)-a(29) from Donovan Johnson, Sep 27 2008

a(30)-a(32) from Amiram Eldar, Feb 07 2020