%I #22 Sep 08 2022 08:44:33
%S 2,3,5,10,14,16,23,25,32,41,43,52,56,61,65,104,113,115,124,131,133,
%T 142,146,155,166,203,205,212,214,221,241,245,254,256,302,304,313,322,
%U 326,335,344,346,362,364,401,403,421,436,443,445,452,461,463,506,515,524
%N Primes written in base 7.
%H Vincenzo Librandi, <a href="/A004681/b004681.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A007093(prime(n)). - _Michel Marcus_, Sep 03 2016
%t FromDigits/@IntegerDigits[Prime[Range[1000]], 7] (* _Vincenzo Librandi_, Sep 03 2016 *)
%o (PARI) a(n)=subst(Pol(digits(prime(n),7)),'x,10) \\ _Charles R Greathouse IV_, Nov 06 2013
%o (PARI) vector(60, n, fromdigits(digits(prime(n), 7))) \\ _G. C. Greubel_, Oct 10 2018
%o (Magma) [Seqint(Intseq(NthPrime(n),7)): n in [1..60]]; // _G. C. Greubel_, Oct 10 2018
%Y Cf. similar sequences listed in A004680.
%Y Cf. A007093.
%K nonn,easy,base
%O 1,1
%A _N. J. A. Sloane_
|