

A038529


nth prime  nth composite.


10



2, 3, 3, 2, 1, 1, 3, 4, 7, 11, 11, 16, 19, 19, 22, 27, 32, 33, 37, 39, 40, 45, 48, 53, 59, 62, 63, 65, 65, 68, 81, 83, 88, 89, 98, 99, 103, 108, 111, 116, 121, 121, 129, 130, 133, 134, 145, 155, 158, 159, 161, 165, 166, 175, 180, 185, 189, 190, 195, 197, 198, 207
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

a(n) = A000040(n)  A002808(n).  Reinhard Zumkeller, Apr 30 2014


LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000


MATHEMATICA

composite[n_Integer] := Block[{k=n+PrimePi[n]+1}, While[kPrimePi[k]1 != n, k++]; k]; Table[Prime[n]  composite[n], {n, 65}]


PROG

(Haskell)
a038529 n = a000040 n  a002808 n  Reinhard Zumkeller, Apr 30 2014


CROSSREFS

Cf. A038529A038532.
Cf. A014237, A067563.
Sequence in context: A123548 A131838 A171414 * A176259 A132312 A090431
Adjacent sequences: A038526 A038527 A038528 * A038530 A038531 A038532


KEYWORD

sign,easy


AUTHOR

Vasiliy Danilov (danilovv(AT)usa.net) 1998 Jul


EXTENSIONS

Mathematica program corrected by Harvey P. Dale, Aug 08 2011


STATUS

approved



