|
|
A088106
|
|
Smallest prime == 1 (mod (product of next n numbers)).
|
|
2
|
|
|
2, 7, 241, 15121, 4324321, 39070081, 29837808001, 17081356723201, 1607854392144001, 106137499051584001, 42873948150095462401, 83214009097971687936001, 23877922252236982465536001
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(3) = 241 == 1 (mod 120), 120 = 4*5*6.
|
|
MATHEMATICA
|
sp[x_]:=Module[{k=1}, While[CompositeQ[k*x+1], k++]; k x+1]; Module[ {nn= 15, nx}, nx = Times@@@TakeList[Range[(nn(nn+1))/2], Range[nn]]; sp/@nx] (* Harvey P. Dale, May 01 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|