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

Author

Carlos Alves, Feb 08 2005

Keywords

• nonn

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

Crossrefs

Cf. A103502.

Programs

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 *)

Extensions

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