A135734 a(n) = prime(n)*prime(n+1)*prime(n+2) - prime(n+3)^2.

-19, -16, 216, 712, 2070, 3670, 6588, 11712, 19308, 31582, 45178, 63022, 80052, 103632, 143248, 186258, 236092, 284848, 341020, 402568, 470740, 574164, 706338, 861324, 997642, 1101240, 1188520, 1301790, 1547098, 1861212, 2259948, 2472432, 2814606

Offset: 1

Author

N. J. A. Sloane, Mar 05 2008

Keywords

• sign
• easy

Comments

a(n) > 0 for all n >= 3.

Links

• G. C. Greubel, Table of n, a(n) for n = 1..1000
• S. Bulman-Fleming and E. T. H. Wang, Problem 356, College Math. J., 20 (1989), 265.

Crossrefs

Cf. A001248, A046301.

Programs

Magma

[NthPrime(n)*NthPrime(n+1)*NthPrime(n+2)-NthPrime(n+3)^2: n in [1..40]]; // Vincenzo Librandi, Apr 17 2015

Maple

A135734:=n->ithprime(n)*ithprime(n+1)*ithprime(n+2)-ithprime(n+3)^2: seq(A135734(n), n=1..50); # Wesley Ivan Hurt, Oct 05 2017

Mathematica

Table[Prime[n] Prime[n + 1] Prime[n + 2] - Prime[n + 3]^2, {n, 50}] (* Vincenzo Librandi, Apr 17 2015 *)

Formula

a(n) = A046301(n) - A001248(n+3). - R. J. Mathar, Mar 06 2008 [Corrected by Georg Fischer, Dec 11 2022]