login
Positions where A007600 increases.
(Formerly M0525)
2

%I M0525 #18 Jan 27 2014 08:54:43

%S 1,2,3,4,5,7,10,13,19,28,37,55,82,109,163,244,325,487,730,973,1459,

%T 2188,2917,4375,6562,8749,13123,19684,26245,39367,59050,78733,118099,

%U 177148,236197,354295,531442,708589,1062883,1594324,2125765,3188647

%N Positions where A007600 increases.

%C A000792(n-1)+1 unless n=1. [Harry Altman, May 17 2011]

%D R. Honsberger, Mathematical Gems III, M.A.A., 1985, p. 225.

%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/KatonasProblem.html">Katona's Problem</a>

%t f[n_] := Min[ Table[2p + 3Ceiling[Log[3, n/2^p]], {p, 0, 2}]]; g[1] = 1; g[n_] := g[n] = Block[{k = g[n - 1]}, While[ f[k] != n, k++ ]; k]; Table[ g[n], {n, 2, 15}] (* _Robert G. Wilson v_, Jan 15 2005 *)

%K nonn,easy

%O 1,2

%A _N. J. A. Sloane_, _Robert G. Wilson v_, _Mira Bernstein_

%E More terms from _Robert G. Wilson v_, Jan 15 2005