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
KEYWORD
nonn
AUTHOR
Christopher Hunt Gribble, Oct 03 2009
EXTENSIONS
Definition corrected by Orson R. L. Peters, Dec 04 2017
STATUS
approved