OFFSET
1,2
LINKS
Jeremy Patrick List, Table of n, a(n) for n = 1..2000
PROG
(Haskell) f = 1:2:(f' 4 $ skip 3 3 [3..])
f' c (n:r) = n:(f' (c + 1) $ skip n c r)
skip i c (l:r) | c == i = skip i 1 r ; | otherwise = l:(skip i (c + 1) r)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jeremy Patrick List, Apr 19 2012
STATUS
approved