login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A102744 Integers that do not appear in the sequence (A102722) given by the floor of the sum of {n/k} while k=1,...,n. Here {x}:=x-[x]. 0
3, 12, 37, 57, 60, 70, 75, 85, 89, 92, 131, 147, 161, 166, 177, 181, 182, 194, 200, 211, 224, 228, 233, 242, 244, 255, 259, 260, 265, 269, 271, 281, 285, 293, 294, 321, 325, 329, 336, 343, 364, 367, 394, 402, 415, 425, 435, 445, 464, 465, 484, 499, 522, 531 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

MATHEMATICA

Resto = Function[n, Sum[n/k - Floor[n/k], {k, 1, n}]]; oops = Floor[Map[Resto, Range[1, 10000]]]; Complement[Range[Max[oops]], Union[oops]]

f[n_] := Floor[Plus @@ FractionalPart[n/Range[2, n - 1]]]; t = {}; Do[ a = f[n]; If[ Position[t, a] == {}, AppendTo[t, a]], {n, 1500}]; Take[ Complement[ Range[ Max[ t]], t], 60] (* Robert G. Wilson v, Feb 19 2005 *)

CROSSREFS

Cf. A103504. This is the complement of A102722.

Sequence in context: A064028 A326241 A110950 * A145951 A083215 A211958

Adjacent sequences:  A102741 A102742 A102743 * A102745 A102746 A102747

KEYWORD

nonn

AUTHOR

Carlos Alves, Feb 08 2005

EXTENSIONS

Edited and corrected by Robert G. Wilson v, Feb 19 2005

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 September 21 13:20 EDT 2020. Contains 337272 sequences. (Running on oeis4.)