|
%I #9 Dec 18 2016 17:27:07
%S 1,2,4,7,8,10,14,19,20,25,28,31,32,38,43,44,46,50,58,62,64,67,70,74,
%T 85,86,88,94,98,100,106,116,121,122,133,134,136,142,145,148,151,154,
%U 163,172,176,187,188,190,199,206,212,214,217,218,226,229,230,247,248
%N Numbers derived as with Lucky Numbers, but beginning with the removal of every third number instead of every second.
%H Jeremy Patrick List, <a href="/A182218/b182218.txt">Table of n, a(n) for n = 1..2000</a>
%o (Haskell) f = 1:2:(f' 4 $ skip 3 3 [3..])
%o f' c (n:r) = n:(f' (c + 1) $ skip n c r)
%o skip i c (l:r) | c == i = skip i 1 r ; | otherwise = l:(skip i (c + 1) r)
%Y Cf. A000959.
%K easy,nonn
%O 1,2
%A _Jeremy Patrick List_, Apr 19 2012
|
