|
|
A101434
|
|
Composite numbers which are the product of non-twin primes.
|
|
0
|
|
|
4, 8, 16, 32, 46, 64, 74, 92, 94, 106, 128, 134, 148, 158, 166, 178, 184, 188, 194, 212, 226, 254, 256, 262, 268, 296, 314, 316, 326, 332, 334, 346, 356, 368, 376, 388, 422, 424, 446, 452, 466, 502, 508, 512, 514, 524, 526, 529, 536, 554, 586, 592, 614, 628, 632
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
74 = 2*37, 529 = 23*23.
|
|
MATHEMATICA
|
nn = 150; p = Prime[Range[nn]]; t = {2}; Do[If[p[[n + 1]] - p[[n]] != 2 && p[[n]] - p[[n - 1]] != 2, AppendTo[t, p[[n]]]], {n, 2, nn - 1}]; Select[Range[2, t[[-1]]], ! PrimeQ[#] && Complement[Transpose[FactorInteger[#]][[1]], t] == {} &] (* T. D. Noe, May 21 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|