A165995 a(n) = Sum_{p > n} floor(n^2/p), for primes p.

0, 1, 2, 7, 9, 16, 19, 28, 40, 54, 60, 76, 81, 100, 121, 143, 151, 177, 184, 210, 241, 272, 281, 314, 349, 386, 424, 465, 480, 522, 538, 582, 628, 677, 728, 782, 800, 856, 910, 970, 991, 1051, 1072, 1133, 1198, 1263, 1285, 1353, 1424, 1497, 1571

Offset: 1

Author

Christopher Hunt Gribble, Oct 03 2009

Keywords

• nonn

Comments

Also the number of integers between n and n^2 with a prime factor > n. - Orson R. L. Peters, Dec 04 2017

Links

• C. H. Gribble, Table of j, a(j) for j=1..2236.

Crossrefs

Cf. A165974.

Programs

Mathematica

Block[{nn = 51, s}, s = Array[FactorInteger[#][[All, 1]] &, nn^2]; Table[Count[s[[#]] & /@ Range[n, n^2], ?(AnyTrue[#, # > n &] &)], {n, nn}]] (* _Michael De Vlieger, Dec 04 2017 *)

Extensions

Definition corrected by Orson R. L. Peters, Dec 04 2017