OFFSET
1,3
LINKS
T. D. Noe, Table of n, a(n) for n=1..10000
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Patrick De Geest, May 15 1998
EXTENSIONS
Edited by Robert G. Wilson v, May 12 2006
STATUS
approved