cp's OEIS Frontend

A180110 Numbers m such that A180076(m-2) < A180076(m-1) < A180076(m).

%I A180110 #12 Mar 13 2014 16:35:29
%S A180110 2,51,70,101,122,145,318,333,344,369,402,453,456,485,496,573,578,719,
%T A180110 782,809,852,977,1062,1141,1264,1279,1400,1451,1470,1539,1582,1671,
%U A180110 1678,1683,1720,1755,1766,1779,1780,1795,1888,1899,1942,1979,2006,2061,2078
%N A180110 Numbers m such that A180076(m-2) < A180076(m-1) < A180076(m).
%C A180110 A180076(a(n)) = 9*A180076(a(n)-2)+4 = 3*(3*A180076(a(n)-2)+1)+1.
%H A180110 Reinhard Zumkeller, <a href="/A180110/b180110.txt">Table of n, a(n) for n = 1..750</a>
%e A180110 a(1)=2: A180076(0..2) = (0,1,4);
%e A180110 a(2)=51: A180076(49..51) = (15,46,139);
%e A180110 a(39)=a(38)+1=1780: A180076(1777..1780) = (494,1483,4450,13331).
%o A180110 (Haskell)
%o A180110 import Data.List (elemIndices)
%o A180110 a180110 n = a180110_list !! (n-1)
%o A180110 a180110_list = map (+ 2) $ elemIndices True $ zipWith (&&) zs (tail zs)
%o A180110    where zs = zipWith (<) a180076_list (tail a180076_list)
%o A180110 -- _Reinhard Zumkeller_, Feb 19 2013
%K A180110 nonn,base
%O A180110 1,1
%A A180110 _Reinhard Zumkeller_, Aug 14 2010