OFFSET
0,3
LINKS
FORMULA
a(n) = A074147(n+1) - 1. - Robert G. Wilson v, Mar 09 2017
MATHEMATICA
Table[ Ceiling[(n -1)^2/2] + 2k -2, {n, 12}, {k, n}] // Flatten (* Robert G. Wilson v, Mar 09 2017 after Ivan Neretin in A074147 *)
PROG
(Haskell)
a116941 n = a116941_list !! n
a116941_list = f 0 1 (zip a116939_list [0..]) [] where
f u v xis'@((x, i):xis) ws
| x == u = i : f u v xis ws
| x == v = f u v xis (i : ws)
| otherwise = reverse ws ++ f v x xis' []
-- Reinhard Zumkeller, Jun 28 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Feb 27 2006
STATUS
approved