OFFSET
1,2
REFERENCES
C. Dumitrescu & V. Seleacu, editors, Some Notions and Questions in Number Theory, Vol. I, Erhus Publ., Glendale, 1994.
M. Le, On the Smarandache n-ary Sieve, Smarandache Notions Journal, Vol. 10, No. 1-2-3, 1999, 146-147.
F. Smarandache, Properties of Numbers, 1972.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
C. Dumitrescu & V. Seleacu, editors, Some Notions and Questions in Number Theory, Vol. I.
EXAMPLE
List the natural numbers: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, ...
Keep the first two numbers 1, 2 and delete the next three numbers 3, 4, 5.
Keep the next three numbers 6, 7, 8 and delete the next four numbers 9, 10, 11, 12. And so on.
MATHEMATICA
ss[n_]:=Module[{c=n^2+4n+1}, Range[c, c+n+1]]; Flatten[Array[ss, 10, 0]] (* Harvey P. Dale, Sep 10 2014 *)
PROG
(Haskell)
a048859 n = a048859_list !! (n-1)
a048859_list = f 2 [1..] where
f k xs = us ++ f (k + 1) (drop (k + 1) vs)
where (us, vs) = splitAt k xs
-- Reinhard Zumkeller, May 16 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Charles T. Le (charlestle(AT)yahoo.com)
EXTENSIONS
Corrected and revised by the author, Mar 24 2004
More terms from Bernardo Boncompagni Jul 27 2004
Offset changed by Reinhard Zumkeller, May 16 2014
STATUS
approved