A119759 a(1) = 1; a(n) is the smallest number k larger than a(n-1) such that k*A002110(n)^3 - 1 is prime.

1, 2, 4, 9, 15, 23, 30, 37, 41, 47, 49, 53, 57, 59, 66, 74, 76, 88, 95, 101, 158, 166, 170, 248, 332, 333, 358, 415, 433, 458, 461, 466, 479, 481, 572, 748, 812, 883, 901, 935, 981, 1152, 1173, 1214, 1409, 1472, 1499, 1527, 1596, 1721, 1752, 1777, 1892, 1951, 1969

Offset

1,2

Links

Table of n, a(n) for n=1..55.

Mathematica

a = {1}; For[n = 2, n < 41, n++, k = a[[ -1]] + 1; While[ !PrimeQ[ k*Product[Prime[i], {i, 1, n}]^3 - 1], k++ ]; AppendTo[a, k]]; a

Crossrefs

Cf. A002110, A119760.

Sequence in context: A058296 A347473 A025217 * A026036 A072846 A157254

Adjacent sequences: A119756 A119757 A119758 * A119760 A119761 A119762

Keyword

nonn

Author

Pierre CAMI, Jun 18 2006

Extensions

Edited by Stefan Steinerberger, Aug 13 2007

More terms from Amiram Eldar, Aug 28 2021

Status

approved