|
%I #11 Jun 29 2016 00:09:05
%S -1,0,1,2,3,6,12,28,71,186,494,1317,3478,9045,23265,59856,155779,
%T 412413,1108874,3009228,8188150,22257484,60462422,164715758,452011067,
%U 1253176571
%N a(n) = A261236(n) - A261237(n).
%F a(n) = A261236(n) - A261237(n).
%t Table[Length@ # - 2 First@ FirstPosition[#, k_ /; k != 2] + 1 &@ Map[First@ IntegerDigits[#, 3] &, #] &@ NestWhileList[# - Total@ IntegerDigits[#, 3] &, 3^(n + 1) - 1, # > 3^n - 1 &], {n, 0, 16}] (* _Michael De Vlieger_, Jun 27 2016, Version 10 *)
%o (Scheme) (define (A261230 n) (- (A261236 n) (A261237 n)))
%Y Cf. A261234, A261236, A261237.
%K sign
%O 0,4
%A _Antti Karttunen_, Aug 16 2015
%E Terms a(24) & a(25) from _Antti Karttunen_, Jun 27 2016
|
