login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A290371 Integers k such that f(k) - f(k-1) equals 1, where f(n) = floor(n/exp(sqrt(log(n)))). 0
3, 9, 16, 24, 33, 42, 51, 61, 71, 82, 93, 104, 115, 127, 139, 151, 163, 175, 188, 200, 213, 226, 239, 253, 266, 279, 293, 307, 321, 335, 349, 363, 377, 392, 406, 421, 436, 451, 465, 480, 495, 511, 526, 541, 557, 572, 588, 603, 619, 635, 650, 666, 682, 698, 714, 730 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..56.

J. M. De Koninck and V. Ouellet, On the n-th element of a set of positive integers, Annales Univ. Sci. Budapest Sect. Comput. 44 (2015), 153-164. See 3. on p. 162.

MATHEMATICA

f[n_]:=Floor[n/Exp[Sqrt[Log[n]]]]; Select[Range[2, 1000], f[#] - f[# - 1]==1 &] (* Indranil Ghosh, Jul 28 2017 *)

PROG

(PARI) f(n) = floor(n/exp(sqrt(log(n))));

isok(n) = f(n) - f(n-1) == 1;

(Python)

from sympy import floor, exp, sqrt, log

def f(n): return floor(n/exp(sqrt(log(n))))

print [n for n in xrange(2, 1001) if f(n) - f(n - 1)==1] # Indranil Ghosh, Jul 28 2017

CROSSREFS

Sequence in context: A184529 A020967 A253547 * A109340 A024385 A212566

Adjacent sequences:  A290368 A290369 A290370 * A290372 A290373 A290374

KEYWORD

nonn

AUTHOR

Michel Marcus, Jul 28 2017

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 26 10:18 EDT 2019. Contains 321491 sequences. (Running on oeis4.)