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