|
|
A256381
|
|
Numbers n such that n-3 and n+3 are semiprimes.
|
|
4
|
|
|
7, 12, 18, 36, 52, 54, 88, 90, 118, 126, 158, 180, 206, 212, 216, 218, 250, 256, 262, 292, 298, 302, 306, 324, 326, 332, 338, 358, 368, 374, 410, 414, 448, 450, 508, 514, 530, 532, 540, 548, 556, 562, 576, 586, 594, 626, 632, 652, 682, 684, 692, 700, 710, 720
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
All but the first term are even.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[750], PrimeOmega[# + 3] == PrimeOmega[# - 3] == 2 &] (* Vincenzo Librandi, Mar 28 2015 *)
SequencePosition[Table[If[PrimeOmega[n]==2, 1, 0], {n, 800}], {1, _, _, _, _, _, 1}][[All, 1]]+3 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 21 2017 *)
|
|
PROG
|
(PARI) lista(nn, m=3) = {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 [4..750] | IsSemiprime(n+3) and IsSemiprime(n-3) ]; // Vincenzo Librandi, Mar 28 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|