This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A098048 #11 Sep 20 2024 16:38:11
%S A098048 1,2,5,16,18,43,162,190,532,564,3314,3908,10499,30789,53828,62946,
%T A098048 278737,364195,629686,3768344,7827416,9496221,23159959,68035462,
%U A098048 92566977,370110663,648634305,4032924162,7748432257,17324573653,19879357650,34988238805
%N 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.
%t A098048 s = PrimeOmega[Total[#]] & /@ Partition[Prime[Range[10^5]], 2, 1]; Map[FirstPosition[s, #][[1]] &, Union@FoldList[Max, s]] (* _Amiram Eldar_, Feb 07 2020 *)
%t A098048 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 *)
%Y A098048 Cf. A001043, A001222, A098037.
%K A098048 nonn,more
%O A098048 1,2
%A A098048 _Jason Earls_, Sep 11 2004
%E A098048 a(17)-a(29) from _Donovan Johnson_, Sep 27 2008
%E A098048 a(30)-a(32) from _Amiram Eldar_, Feb 07 2020