A175957 Numbers that cannot be written as the sum of a prime number and a primorial number.

1, 2, 10, 16, 22, 26, 27, 28, 34, 36, 40, 46, 50, 51, 52, 56, 57, 58, 64, 66, 70, 76, 78, 82, 86, 87, 88, 92, 93, 94, 96, 100, 106, 112, 116, 117, 118, 120, 121, 122, 123, 124, 125, 126, 130, 134, 135, 136, 142, 144, 146, 147, 148, 149, 154, 156, 160, 162, 166, 170

Offset: 1

Author

Juri-Stepan Gerasimov, Oct 29 2010

Keywords

• nonn

Crossrefs

Cf. A118954, A175933.

Programs

Mathematica

fQ[n_] := Block[{pp = Select[ FoldList[Times, 1, Prime@ Range@ 20], # <= n &]}, Last@ Union@ PrimeQ[n - pp] == False]; Select[ Range@ 170, fQ] (* Robert G. Wilson v, Nov 05 2010 *)

Formula

{k : A175933(k)=0}. - R. J. Mathar, Nov 03 2010

Extensions

Corrected (90 removed) and extended by R. J. Mathar and Robert G. Wilson v, Nov 03 2010