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,3

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.

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

Crossrefs

Cf. A165974.

Sequence in context: A225675 A185869 A020894 * A287575 A267212 A022113

Adjacent sequences: A165992 A165993 A165994 * A165996 A165997 A165998

Keyword

nonn

Author

Christopher Hunt Gribble, Oct 03 2009

Extensions

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

Status

approved