A169682 Golomb-type sequence over primes.
2, 2, 3, 3, 5, 5, 5, 7, 7, 7, 11, 11, 11, 11, 11, 13, 13, 13, 13, 13, 17, 17, 17, 17, 17, 19, 19, 19, 19, 19, 19, 19, 23, 23, 23, 23, 23, 23, 23, 29, 29, 29, 29, 29, 29, 29, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37
Offset: 1
Keywords
Links
- Ivan Neretin, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A001462.
Programs
-
Mathematica
a = {2, 2}; Do[a = Join[a, Array[Prime[i]&, a[[i]]]], {i, 2, 12}]; a (* Ivan Neretin, Apr 03 2015 *)
Comments