A165993 a(n) = sum_{j=1..prime(n)-1} floor (j^2/prime(n)).

0, 1, 4, 11, 31, 44, 80, 103, 157, 252, 293, 420, 520, 575, 695, 884, 1105, 1180, 1431, 1617, 1704, 2007, 2217, 2552, 3040, 3300, 3439, 3713, 3852, 4144, 5255, 5595, 6120, 6305, 7252, 7457, 8060, 8695, 9141, 9804, 10507, 10740, 11983, 12224, 12740

Offset

1,3

Links

C. H. Gribble, Table of n, a(n) for n=1..78498 (i.e. for primes < 10^6).

Formula

a(n) = A166375(prime(n)-1). - Charles R Greathouse IV, Jun 28 2013

Mathematica

Table[Sum[Floor[j^2/n], {j, n-1}], {n, Prime[Range[50]]}] (* Harvey P. Dale, Aug 10 2014 *)

Prog

(PARI) a(n) = sum(j=1, prime(n)-1, floor (j^2/prime(n))) \\ Michel Marcus, Jun 20 2013
(PARI) a(n)=my(p=prime(n)); sum(j=1, p-1, j^2\p) \\ Charles R Greathouse IV, Jun 20 2013

Crossrefs

Cf. A166375, A165974, A014817.

Sequence in context: A183116 A183121 A104743 * A192312 A004080 A298300

Adjacent sequences: A165990 A165991 A165992 * A165994 A165995 A165996

Keyword

nonn

Author

Christopher Hunt Gribble, Oct 03 2009

Extensions

Definition rephrased by R. J. Mathar, Oct 09 2009

Status

approved