A139049 a(n) = prime(n) + 6.
8, 9, 11, 13, 17, 19, 23, 25, 29, 35, 37, 43, 47, 49, 53, 59, 65, 67, 73, 77, 79, 85, 89, 95, 103, 107, 109, 113, 115, 119, 133, 137, 143, 145, 155, 157, 163, 169, 173, 179, 185, 187, 197, 199, 203, 205, 217, 229, 233, 235, 239, 245, 247, 257, 263, 269, 275, 277
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A140353.
Programs
-
GAP
Filtered([1..300], k-> IsPrime(k) ) + 6; # G. C. Greubel, May 20 2019
-
Magma
[NthPrime(n)+6: n in [1..70]]; // G. C. Greubel, May 20 2019
-
Maple
A139049:=n->ithprime(n)+6: seq(A139049(n), n=1..100); # Wesley Ivan Hurt, Apr 18 2017
-
Mathematica
6+Prime[Range[70]] (* G. C. Greubel, May 20 2019 *)
-
PARI
A139049(n) = prime(n)+6
-
Sage
[nth_prime(n) +6 for n in (1..70)] # G. C. Greubel, May 20 2019
Extensions
Edited by Michael B. Porter, Jan 28 2010
Comments