login
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
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
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
Sequence in context: A058296 A347473 A025217 * A026036 A072846 A157254
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