OFFSET
1,1
COMMENTS
Start from an auxiliary sequence of interprimes, incremented by 1 if even: 5, 7, 9, 13, 15, 19, 21, 27, 31,... Removing the primes from this auxiliary sequence of odd numbers yields the current sequence.
MATHEMATICA
digits=200 (* find odd numbers between the primes nearest the average*) a=Table[If[(Mod[(Prime[n+1]+Prime[n])/2, 2]==1)&&( PrimeQ[(Prime[n+1]+Prime[n])/2]==False)&&( PrimeQ[(Prime[n+1]+Prime[n])/2+1]==False), (Prime[n+1]+Prime[n])/2, (Prime[n+1]+Prime[n])/2+1], {n, 2, digits}] b=Table[Prime[n], {n, 1, digits}] (* eliminate the primes from the sequence *) aa=Complement[a, b]
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Roger L. Bagula, Sep 20 2004
EXTENSIONS
Definition clarified by the Assoc. Eds. of the OEIS, Jul 13 2010
STATUS
approved