login
4

%I #15 Sep 03 2017 15:15:58

%S 0,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,5,

%T 5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,7,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,9,9,9,

%U 9,9,9,9,9,10,10,10,10,10,10,10,10,11,11,11,11,11,11,11,11,12,12,12,12,12

%N a(n) = A110654(A110654(A110654(n))).

%H G. C. Greubel, <a href="/A110656/b110656.txt">Table of n, a(n) for n = 0..1000</a>

%F a(n) = ceiling(n/8).

%F a(n) = A110654(A110655(n)) = A110655(A110654(n)).

%F G.f.: x / ((x-1)^2*(x+1)*(x^2+1)*(x^4+1)). - _Colin Barker_, Apr 01 2013

%t Table[Ceiling[n/8], {n, 0, 50}] (* _G. C. Greubel_, Sep 03 2017 *)

%o (PARI) for(n=0,50, print1(ceil[n/8], ", ")) \\ _G. C. Greubel_, Sep 03 2017

%Y Cf. A110658.

%K nonn

%O 0,10

%A _Reinhard Zumkeller_, Aug 05 2005