[go: up one dir, main page]

login
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
OFFSET
1,1
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
Sequence in context: A002119 A146752 A022518 * A218384 A022503 A063861
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jan 03 2006
EXTENSIONS
More terms from Joshua Zucker, Jan 11 2006
STATUS
approved