login
A227632
Record values in A227617.
3
1, 2, 5, 19, 34, 61, 114, 175, 1094, 1695, 3390, 9372, 15605, 116478, 220288, 455587, 552188
OFFSET
1,2
COMMENTS
a(n) = A227617(A227633(n));
A227633(n) = A100707(a(n)).
PROG
(Haskell)
a227632 n = a227632_list !! (n-1)
(a227632_list, a227633_list) = unzip $ (1, 1) : f 1 1 a227617_list where
f i v (q:qs) | q > v = (q, i) : f (i + 1) q qs
| otherwise = f (i + 1) v qs
CROSSREFS
Sequence in context: A092946 A374178 A090700 * A105889 A086085 A138250
KEYWORD
nonn,more
AUTHOR
Reinhard Zumkeller, Jul 19 2013
STATUS
approved