A103504 Integers that do not appear in A103502.

123, 1298, 4929, 9516, 10066, 14192, 15830, 15887, 17854, 20007, 23394, 24574, 27441, 31932, 33377, 33381, 33933, 35594, 35978, 37075, 40139, 40931, 41205, 43573, 45147, 47661, 47749, 48286, 48444, 48941, 50580, 51659, 52377, 59375, 61260, 61726, 62465, 63063

Offset

1,1

Comments

For n>1873, A103502(n)>123 and for n>27763, A103502(n)>1298. - Michel Marcus, Feb 06 2014

Links

Hiroaki Yamanouchi, Table of n, a(n) for n = 1..3804

Mathematica

Restop = Function[n, pp = Prime[Range[PrimePi[n]]]; Sum[n/pp[[k]] - Floor[n/pp[[k]]], {k, 1, Length[pp]}]]; oops = Floor[Map[Restop, Range[1, 30000]]]; Complement[Range[Max[oops]], Union[oops]]
f[n_] := Floor[Plus @@ FractionalPart[n / Table[ Prime[i], {i, PrimePi[n]}]]]; Do[ a = f[n]; If[ Position[t, a] == {}, AppendTo[t, a]], {n, 81900}]; Complement[ Range[ Sort[t][[ -1]]], t] (* Robert G. Wilson v, Feb 12 2005 *)

Crossrefs

Cf. A103502.

Sequence in context: A174173 A116935 A265983 * A324627 A259907 A115983

Adjacent sequences: A103501 A103502 A103503 * A103505 A103506 A103507

Keyword

nonn

Author

Carlos Alves, Feb 08 2005

Extensions

a(3)-a(38) from Hiroaki Yamanouchi, Sep 23 2014

Status

approved