|
%I #9 Feb 07 2020 09:03:42
%S 1,2,5,16,18,43,162,190,532,564,3314,3908,10499,30789,53828,62946,
%T 278737,364195,629686,3768344,7827416,9496221,23159959,68035462,
%U 92566977,370110663,648634305,4032924162,7748432257,17324573653,19879357650,34988238805
%N 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 s = PrimeOmega[Total[#]] & /@ Partition[Prime[Range[10^5]], 2, 1]; Map[FirstPosition[s, #][[1]] &, Union@FoldList[Max, s]] (* _Amiram Eldar_, Feb 07 2020 *)
%Y Cf. A001043, A001222, A098037.
%K nonn,more
%O 1,2
%A _Jason Earls_, Sep 11 2004
%E a(17)-a(29) from _Donovan Johnson_, Sep 27 2008
%E a(30)-a(32) from _Amiram Eldar_, Feb 07 2020
|
