A164276 The non-isolated nonprimes.
0, 1, 8, 9, 10, 14, 15, 16, 20, 21, 22, 24, 25, 26, 27, 28, 32, 33, 34, 35, 36, 38, 39, 40, 44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 62, 63, 64, 65, 66, 68, 69, 70, 74, 75, 76, 77, 78, 80, 81, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 96, 98, 99, 100, 104, 105, 106, 110
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[0,100], !PrimeQ[#] && (!PrimeQ[# - 1] || !PrimeQ[# + 1]) & ] (* G. C. Greubel, Jul 07 2016 *)
-
PARI
isA164276(n) = !isprime(n)&&(!isprime(n-1)||!isprime(n+1)) \\ Michael B. Porter, Feb 02 2010
Formula
a(n) = n + n / log n + O(n / (log n)^2) by Brun's theorem. - Charles R Greathouse IV, Mar 15 2011
Extensions
40 added by R. J. Mathar, Aug 27 2009
Comments