OFFSET
1,1
LINKS
Bo Gyu Jeong, Table of n, a(n) for n = 1..10000
MAPLE
nnc:= 1: nc:= 0; b[nnc]:= 0:b[0]:= 0:
for x from 2 to 1000 do
if isprime(x) then
nnc:= nnc+1; b[nnc]:= b[nnc-1];
else
b[nnc]:= b[nnc]+1;
nc:= nc+1;
c[nc]:= x;
fi
od:
seq(b[n-1]+c[n], n=1..min(nnc, nc)); # Robert Israel, Jan 09 2015
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Jaroslav Krizek, Jul 23 2009
EXTENSIONS
STATUS
approved