|
|
A256382
|
|
Numbers n such that n-4 and n+4 are semiprimes.
|
|
4
|
|
|
10, 18, 29, 30, 42, 53, 61, 73, 78, 81, 89, 90, 91, 115, 119, 125, 137, 138, 162, 165, 173, 181, 198, 205, 209, 210, 213, 217, 222, 258, 263, 291, 295, 299, 305, 323, 325, 330, 331, 390, 399, 407, 411, 441, 449, 450, 462, 477, 485, 489, 493, 497, 501, 515, 523
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A117328 is the subsequence of primes.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[600], PrimeOmega[# + 4] == PrimeOmega[# - 4] == 2 &] (* Vincenzo Librandi, Mar 29 2015 *)
Flatten[Position[Partition[Table[If[PrimeOmega[n]==2, 1, 0], {n, 600}], 9, 1], _?(#[[1]]==#[[9]]==1&), {1}, Heads->False]]+4 (* Harvey P. Dale, Mar 29 2015 *)
|
|
PROG
|
(PARI) lista(nn, m=4) = {for (n=m+1, nn, if (bigomega(n-m)==2 && bigomega(n+m)==2, print1(n, ", ")); ); }
(Magma) IsSemiprime:=func< n | &+[k[2]: k in Factorization(n)] eq 2 >; [ n: n in [6..750] | IsSemiprime(n+4) and IsSemiprime(n-4) ]; // Vincenzo Librandi, Mar 29 2015
|
|
CROSSREFS
|
Cf. A117328 (with primes rather than semiprimes).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|