A267439 Indices of (Abatzoglou-Silverberg-Sutherland-Wong) primes in A267437.

2, 3, 4, 5, 7, 9, 10, 17, 18, 28, 38, 49, 53, 60, 63, 65, 77, 84, 87, 100, 109, 147, 170, 213, 235, 287, 319, 375, 467, 489, 494, 543, 643, 684, 725, 1129, 1428, 2259, 2734, 2828, 3148, 3230, 3779, 5537, 5759, 7069, 7189, 7540, 7729

Offset

1,1

References

Alexander Abatzoglou, Alice Silverberg, Andrew V. Sutherland, and Angela Wong, Deterministic elliptic curve primality proving for a special sequence of numbers, Tenth Algorithmic Number Theory Symposium (ANTS X, 2012), pp. 1-20.

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..62

Charles R Greathouse IV, GP script for computing terms using the Abatzoglou-Silverberg-Sutherland-Wong algorithm

Mathematica

s = RecurrenceTable[{a[n] == 4 a[n - 1] - 7 a[n - 2] + 8 a[n - 3] - 4 a[n - 4], a[2] == 11, a[3] == 23, a[4] == 67, a[5] == 151}, a, {n, 2, 4000}]; Flatten@ Position[s, _Integer?PrimeQ] + 1 (* Michael De Vlieger, Jan 24 2016 *)

Prog

(PARI) A267437(n)=([0, 1, 0, 0; 0, 0, 1, 0; 0, 0, 0, 1; -4, 8, -7, 4]^n*[9; 11; 11; 23])[1, 1]
list(lim)=my(v=List()); for(n=2, lim, if(ispseudoprime(A267437(n)), listput(v, n))); Vec(v)
(PARI) See Greathouse link.

Crossrefs

Cf. A267437, A267438.

Sequence in context: A055600 A139528 A178434 * A262691 A117290 A286972

Adjacent sequences: A267436 A267437 A267438 * A267440 A267441 A267442

Keyword

nonn

Author

Charles R Greathouse IV, Jan 15 2016

Status

approved