A272324 -id:A272324 - cp's OEIS frontend

A076808 a(n) = 82n^3 - 1228n^2 + 6130n - 5861.

-5861, -877, 2143, 3691, 4259, 4339, 4423, 5003, 6571, 9619, 14639, 22123, 32563, 46451, 64279, 86539, 113723, 146323, 184831, 229739, 281539, 340723, 407783, 483211, 567499, 661139, 764623, 878443, 1003091, 1139059, 1286839, 1446923, 1619803, 1805971

Offset: 0

Hilko Koning (hilko(AT)hilko.net), Nov 18 2002

A prime-generating cubic polynomial.

For n=0 ... 31, the absolute value of terms in this sequence are primes. This is not the case for n=32. See A272323 and A272324. - Robert Price, Apr 25 2016

Eric Weisstein's World of Mathematics, Prime-Generating Polynomials
Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1).

Cf. A050266, A076809, A272323, A272324.

Table[82 n^3 - 1228 n^2 + 6130 n - 5861, {n, 0, 31}] (* or *)
CoefficientList[Series[(13301 x^3 - 29515 x^2 + 22567 x - 5861)/(x - 1)^4, {x, 0, 31}], x] (* Michael De Vlieger, Apr 25 2016 *)
LinearRecurrence[{4,-6,4,-1},{-5861,-877,2143,3691},40] (* Harvey P. Dale, Jun 18 2018 *)

A076808(n):=82*n^3-1228*n^2+6130*n-5861$
makelist(A076808(n),n,0,30); /* Martin Ettl, Nov 08 2012 */

a(n)=82*n^3-1228*n^2+6130*n-5861 \\ Charles R Greathouse IV, Oct 07 2015

G.f.: (13301*x^3-29515*x^2+22567*x-5861)/(x-1)^4. - Colin Barker, Nov 10 2012

E.g.f.: (-5861 + 4984*x - 982*x^2 + 82*x^3)*exp(x). - Ilya Gutkovskiy, Apr 25 2016

A272323 Nonnegative numbers n such that abs(82n^3 - 1228n^2 + 6130n - 5861) is prime.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 34, 37, 39, 41, 43, 47, 49, 50, 53, 54, 55, 59, 61, 63, 64, 67, 72, 73, 75, 76, 81, 84, 86, 87, 88, 89, 90, 92, 95, 97, 98, 102, 103, 104

Offset: 1

Robert Price, Apr 25 2016

nonn

32 is the smallest number not in this sequence.

			4 is in this sequence since 82*4^3 - 1228*4^2 + 6130*4 - 5861 = 5248-19648+24520-5861 = 4259 is prime.

Robert Price, Table of n, a(n) for n = 1..2659
Eric Weisstein's World of Mathematics, Prime-Generating Polynomials

Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266.

Cf. A271980, A272030, A272074, A272075, A272160, A271144, A272285, A272324, A076808.

Select[Range[0, 100], PrimeQ[82#^3 - 1228#^2 + 6130# - 5861] &]

lista(nn) = for(n=0, nn, if(isprime(abs(82*n^3-1228*n^2+6130*n-5861)), print1(n, ", "))); \\ Altug Alkan, Apr 25 2016

cp's OEIS Frontend

A076808 a(n) = 82n^3 - 1228n^2 + 6130n - 5861.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Maxima

PARI

Formula