%I #18 Sep 08 2022 08:44:33
%S 2,3,5,7,12,14,18,21,25,32,34,41,45,47,52,58,65,67,74,78,81,87,102,
%T 108,117,122,124,128,131,135,151,155,162,164,175,177,184,201,205,212,
%U 218,221,232,234,238,241,254,267
%N Primes written in base 9.
%H Zak Seidov, <a href="/A004683/b004683.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[FromDigits[IntegerDigits[Prime[n], 9]], {n, 100}] (* _Zak Seidov_, Apr 25 2016 *)
%o (PARI) a(n)=subst(Pol(digits(prime(n),9)),'x,10) \\ _Charles R Greathouse IV_, Nov 06 2013
%o (PARI) vector(50, n, fromdigits(digits(prime(n), 9))) \\ _G. C. Greubel_, Oct 09 2018
%o (Magma) [Seqint(Intseq(NthPrime(n),9)): n in [1..50]]; // _G. C. Greubel_, Oct 09 2018
%Y Subsequence of A007095.
%K nonn,easy,base
%O 1,1
%A _N. J. A. Sloane_