|
|
A176004
|
|
(n-th prime > 3) minus (n-th semiprime).
|
|
0
|
|
|
1, 1, 2, 3, 3, 4, 2, 7, 6, 11, 8, 9, 12, 15, 20, 15, 18, 20, 18, 22, 25, 27, 32, 32, 29, 30, 27, 28, 41, 44, 46, 46, 55, 56, 51, 52, 52, 55, 60, 60, 69, 70, 68, 66, 77, 82, 85, 86, 88, 93, 86, 93, 98, 102, 103, 102, 100, 103, 100, 108, 120, 117, 112, 115, 128, 132, 141, 140, 140, 145
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
a(n)=prime(n+2)-semiprime(n).
|
|
MATHEMATICA
|
Module[{nn=80, sem, len}, sem=Select[Range[3*nn], PrimeOmega[#]==2&]; len= Min[nn, Length[sem]]; #[[1]]-#[[2]]&/@Thread[{Take[Prime[Range[ 3, nn+2]], len], Take[sem, len]}]] (* Harvey P. Dale, Sep 04 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|