login
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.
2
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,2
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 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jason Earls, Sep 11 2004
EXTENSIONS
a(17)-a(29) from Donovan Johnson, Sep 27 2008
a(30)-a(32) from Amiram Eldar, Feb 07 2020
STATUS
approved