login
A180110
Numbers m such that A180076(m-2) < A180076(m-1) < A180076(m).
2
2, 51, 70, 101, 122, 145, 318, 333, 344, 369, 402, 453, 456, 485, 496, 573, 578, 719, 782, 809, 852, 977, 1062, 1141, 1264, 1279, 1400, 1451, 1470, 1539, 1582, 1671, 1678, 1683, 1720, 1755, 1766, 1779, 1780, 1795, 1888, 1899, 1942, 1979, 2006, 2061, 2078
OFFSET
1,1
COMMENTS
A180076(a(n)) = 9*A180076(a(n)-2)+4 = 3*(3*A180076(a(n)-2)+1)+1.
LINKS
EXAMPLE
a(1)=2: A180076(0..2) = (0,1,4);
a(2)=51: A180076(49..51) = (15,46,139);
a(39)=a(38)+1=1780: A180076(1777..1780) = (494,1483,4450,13331).
PROG
(Haskell)
import Data.List (elemIndices)
a180110 n = a180110_list !! (n-1)
a180110_list = map (+ 2) $ elemIndices True $ zipWith (&&) zs (tail zs)
where zs = zipWith (<) a180076_list (tail a180076_list)
-- Reinhard Zumkeller, Feb 19 2013
CROSSREFS
Sequence in context: A057943 A037419 A078165 * A037058 A106042 A222850
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Aug 14 2010
STATUS
approved