|
|
A090186
|
|
a(n) is the least prime of the form prime(n)# * k + prime(n+1).
|
|
1
|
|
|
5, 11, 37, 431, 13873, 30047, 510529, 9699713, 446185769, 51757545871, 601681470427, 22262214404471, 2434002108217723, 13082761331670077, 1229779565176982873, 32589158477190044789, 1922760350154212639131
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
# denotes primorial; k >= 1.
|
|
LINKS
|
|
|
EXAMPLE
|
a(4)=431 because prime(4)#*2+prime(5) = 431 is prime.
|
|
MATHEMATICA
|
lp[{a_, b_}]:=Module[{k=1}, While[!PrimeQ[k*a+b], k++]; k*a+b]; With[{nn=20}, lp/@Thread[ {FoldList[Times, Prime[Range[nn]]], Prime[Range[2, nn+1]]}]] (* Harvey P. Dale, Dec 25 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|