1,3

T. D. Noe, Table of n, a(n) for n=1..10000

A000959(n) - A000040(n).

lst = Range[1, 428, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; lst - Prime@ Range@ Length@lst (* Robert G. Wilson v *)

Cf. A000040, A000959.

Sequence in context: A261611 A097198 A126663 * A103260 A060824 A334125

Adjacent sequences: A032597 A032598 A032599 * A032601 A032602 A032603

sign

Patrick De Geest, May 15 1998

Edited by Robert G. Wilson v, May 12 2006

approved