|
|
A113053
|
|
Beginning with 7, primes of the form: least multiple of the previous term followed by a 1. Beginning with 7, a(n) is the least prime of the form k*a(n-1)*10 +1.
|
|
0
|
|
|
7, 71, 2131, 191791, 5753731, 575373101, 17261193031, 517835790931, 82853726548961, 28998804292136351, 16239330403596356561, 4384619208971016271471, 526154305076521952576521
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
nxt[n_]:=Module[{k=1}, While[CompositeQ[10*k*n+1], k++]; 10*k*n+1]; NestList[ nxt, 7, 20] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 04 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|