A004682 Primes written in base 8.
2, 3, 5, 7, 13, 15, 21, 23, 27, 35, 37, 45, 51, 53, 57, 65, 73, 75, 103, 107, 111, 117, 123, 131, 141, 145, 147, 153, 155, 161, 177, 203, 211, 213, 225, 227, 235, 243, 247, 255, 263, 265, 277, 301, 305, 307, 323, 337, 343, 345, 351, 357, 361, 373, 401, 407, 415, 417
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[Seqint(Intseq(NthPrime(n),8)): n in [1..60]]; // G. C. Greubel, Oct 10 2018
-
Mathematica
FromDigits/@IntegerDigits[Prime[Range[50]], 8] (* Vincenzo Librandi, Sep 03 2016 *)
-
PARI
a(n)=subst(Pol(digits(prime(n),8)),'x,10) \\ Charles R Greathouse IV, Nov 06 2013
-
PARI
vector(60, n, fromdigits(digits(prime(n), 8))) \\ G. C. Greubel, Oct 10 2018
Formula
a(n) = A007094(prime(n)). - Michel Marcus, Sep 03 2016