A004683 Primes written in base 9.

2, 3, 5, 7, 12, 14, 18, 21, 25, 32, 34, 41, 45, 47, 52, 58, 65, 67, 74, 78, 81, 87, 102, 108, 117, 122, 124, 128, 131, 135, 151, 155, 162, 164, 175, 177, 184, 201, 205, 212, 218, 221, 232, 234, 238, 241, 254, 267

Offset

1,1

Links

Zak Seidov, Table of n, a(n) for n = 1..1000

Mathematica

Table[FromDigits[IntegerDigits[Prime[n], 9]], {n, 100}] (* Zak Seidov, Apr 25 2016 *)

Prog

(PARI) a(n)=subst(Pol(digits(prime(n), 9)), 'x, 10) \\ Charles R Greathouse IV, Nov 06 2013
(PARI) vector(50, n, fromdigits(digits(prime(n), 9))) \\ G. C. Greubel, Oct 09 2018
(Magma) [Seqint(Intseq(NthPrime(n), 9)): n in [1..50]]; // G. C. Greubel, Oct 09 2018

Crossrefs

Subsequence of A007095.

Sequence in context: A257560 A187774 A031216 * A363077 A240305 A100036

Adjacent sequences: A004680 A004681 A004682 * A004684 A004685 A004686

Keyword

nonn,easy,base

Author

N. J. A. Sloane

Status

approved