OFFSET
1,2
COMMENTS
Several other versions of this sequence are already in the OEIS. - N. J. A. Sloane, Jun 24 2010
LINKS
Leonhard Euler, Observationes circa novum et singulare progressionum genus. In: Novi Comment. Akadem. Petropol. Vol.20 (1775).
Eric Weisstein's World of Mathematics, Josephus Problem.
MATHEMATICA
Needs["Combinatorica`"]
a[n_] := Last@ InversePermutation@ Josephus[n, 7]; Array[a, 79] (* Robert G. Wilson v, Jul 31 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roland Schroeder (florola(AT)gmx.de), Jun 18 2010
EXTENSIONS
a(29) onwards from Robert G. Wilson v, Jul 31 2010
STATUS
approved