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,2

Links

Table of n, a(n) for n=1..60.

Formula

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

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 *)

Crossrefs

Cf. A118954, A175933.

Sequence in context: A043429 A105041 A138632 * A307055 A060658 A239321

Adjacent sequences: A175954 A175955 A175956 * A175958 A175959 A175960

Keyword

nonn

Author

Juri-Stepan Gerasimov, Oct 29 2010

Extensions

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

Status

approved