|
%I #7 Feb 12 2016 16:28:11
%S 5,7,8,14,15,16,17,21,22,23,24,25,26,32,34,35,41,42,43,44,45,46,47,48,
%T 49,50,51,52,53,59,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,
%U 78,79,80,86,88,89,95,96,97,98,102,103,104,105,106,107,113
%N Numbers such that in ternary representation at least one pair of adjacent digits has a sum greater than 2.
%C A242400(a(n)) > 0;
%C A242399(a(n)) < 4*a(n).
%H Reinhard Zumkeller, <a href="/A242408/b242408.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Ternary.html">Ternary.</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Ternary_numeral_system">Ternary numeral system</a>
%e Initial terms and their ternary representations, cf. A007089:
%e . 5 7 8 14 15 16 17 21 22 23 24 25 26 32 34 35 41 ..
%e . 12 21 22 112 120 121 122 210 211 212 220 221 222 1012 1021 1022 1112 ..
%t Select[Range[200],Max[Total/@Partition[IntegerDigits[#,3],2,1]]>2&] (* _Harvey P. Dale_, Feb 12 2016 *)
%o (Haskell)
%o a242408 n = a242408_list !! (n-1)
%o a242408_list = filter ((> 0) . a242400) [0..]
%Y Cf. A242407 (complement), A004780.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, May 13 2014
|
