OFFSET
1,2
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
EXAMPLE
a(12) = 10 as there are 10 primes between (exclusive) 12 and 12 + tau(12)^2 = 12 + 6^2 = 12 + 36 = 48 namely the 10 primes 13, 17, 19, 23, 29, 31, 37, 41, 43, 47. - David A. Corneth, Sep 20 2020
MATHEMATICA
Table[Count[Range[n+1, n+DivisorSigma[0, n]^2-1], _?PrimeQ], {n, 100}] (* Harvey P. Dale, Oct 25 2021 *)
PROG
(PARI) a(n) = #select(x->isprime(x), vector(numdiv(n)^2-1, k, k+n)); \\ Michel Marcus, Jun 18 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Benoit Cloitre, Apr 13 2002
STATUS
approved