%I #19 Sep 08 2022 08:44:33
%S 2,3,5,11,15,21,25,31,35,45,51,101,105,111,115,125,135,141,151,155,
%T 201,211,215,225,241,245,251,255,301,305,331,335,345,351,405,411,421,
%U 431,435,445,455,501,515,521,525,531,551,1011,1015,1021,1025,1035
%N Primes written in base 6.
%H Vincenzo Librandi, <a href="/A004680/b004680.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A007092(prime(n)). - _Michel Marcus_, Sep 03 2016
%t FromDigits/@IntegerDigits[Prime[Range[50]], 6] (* _Vincenzo Librandi_, Sep 03 2016 *)
%o (PARI) a(n)=subst(Pol(digits(prime(n),6)),'x,10) \\ _Charles R Greathouse IV_, Nov 06 2013
%o (PARI) vector(60, n, fromdigits(digits(prime(n), 6))) \\ _G. C. Greubel_, Oct 10 2018
%o (Magma) [Seqint(Intseq(NthPrime(n),6)): n in [1..60]]; // _G. C. Greubel_, Oct 10 2018
%Y Analogs in other bases: A004676 (base 2), A001363 (base 3), A004678 (base 4), A004679 (base 5), A004681 (base 7), A004682 (base 8), A004683 (base 9), A000040 (base 10), A004684 (base 11).
%Y Cf. A007092.
%K nonn,easy,base
%O 1,1
%A _N. J. A. Sloane_
|