A168044 Half of the even nonisolated nonprimes A167692.
0, 4, 5, 7, 8, 10, 11, 12, 13, 14, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 70, 71, 72, 73, 74, 76, 77, 78, 79, 80, 81, 82, 83
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[0,100], Mod[#, 2] == 0 && !PrimeQ[#] && (! PrimeQ[# - 1] || !PrimeQ[# + 1]) & ]/2 (* G. C. Greubel, Jul 07 2016 *)
Formula
a(n) = A167692(n)/2.
Comments