|
%I M2300 #23 Oct 06 2017 20:15:18
%S 1,3,4,5,6,8,9,10,11,12,13,14,15,16,17,18,19,21,22,23,24,25,26,27,28,
%T 29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,
%U 52,53
%N Not of form [ e^m ], m >= 1.
%C If 1 is excluded (of form [e^0]) then complement of A000149. - _Michel Marcus_, Jun 16 2013
%D J. Roberts, Lure of the Integers, Math. Assoc. America, 1992, p. 11.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Reinhard Zumkeller, <a href="/A003619/b003619.txt">Table of n, a(n) for n = 1..10000</a>
%H J. Lambek and L. Moser, <a href="http://www.jstor.org/stable/2308078">Inverse and complementary sequences of natural numbers</a>, Amer. Math. Monthly, 61 (1954), 454-458.
%F a(n) = n + [ log (n + 1 + [ log (n + 1) ]) ].
%t Table[n + Floor@ Log[n + 1 + Floor@ Log[n + 1]], {n, 50}] (* _Michael De Vlieger_, Oct 06 2017 *)
%o (PARI) a(n) = n + floor( log (n + 1 + floor( log (n + 1) )) ) \\ _Michel Marcus_, Jun 16 2013
%o (Haskell)
%o a003619 n = n + floor (log (x + fromIntegral (floor $ log x)))
%o where x = fromIntegral n + 1
%o -- _Reinhard Zumkeller_, Mar 17 2015
%Y Cf. A000195.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, _Mira Bernstein_
|
