OFFSET
1,1
FORMULA
Numbers n such that the number of partitions of n into a prime and a semiprime is a record.
EXAMPLE
a(15) = 222 because there are 22 partitions of n into a prime and a semiprime and that 22 is a record.
For n = 6, 9, 11, 17, 38, 51, 62, 88, 93, 98, 122, 148, 152, 188, 222, A100949(n) = 1, 2, 3, 5, 6, 8, 10, 11, 12, 13, 16, 17, 19, 21, 22.
MATHEMATICA
nPar[n_] := Length@ Select[Prime@ Range[ PrimePi@ n], PrimeOmega[n - #] == 2 &]; r = 0; L = {}; n = 2; While[Length[L] < 50, p = nPar[++n]; If[p > r, r = p; AppendTo[L, n]]]; L (* Giovanni Resta, Jun 19 2016 *)
DeleteDuplicates[Table[{n, Count[Sort/@(PrimeOmega/@IntegerPartitions[n, {2}]), {1, 2}]}, {n, 1600}], GreaterEqual[#1[[2]], #2[[2]]]&][[;; , 1]]//Rest (* Harvey P. Dale, Jun 14 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Vos Post, Oct 04 2007
EXTENSIONS
Data corrected by Giovanni Resta, Jun 19 2016
STATUS
approved