A164967 Sequential primes built off of 1.
1, 13, 137, 13711, 1371113, 137111329, 13711132937, 13711132937113, 13711132937113307, 13711132937113307401, 13711132937113307401463, 13711132937113307401463509, 13711132937113307401463509541, 13711132937113307401463509541701
Offset: 1
Links
- Robert G. Wilson v, Table of n, a(n) for n = 1..100
Crossrefs
Cf. A074336.
Programs
-
Mathematica
p = 3; f[n_] := Block[{}, While[q = n*10^Floor[1 + Log10[p]] + p; !PrimeQ[q], p = NextPrime[p]]; p = NextPrime[p]; q]; NestList[f, 1, 14] (* Robert G. Wilson v, Jan 14 2012 *)
Extensions
Edited and extended by Robert G. Wilson v, Jan 14 2012
Comments