OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
FromDigits/@IntegerDigits[Prime[Range[50]], 4] (* Vincenzo Librandi, Sep 03 2016 *)
PROG
(PARI) a(n)=subst(Pol(digits(prime(n), 4)), 'x, 10) \\ Charles R Greathouse IV, Nov 06 2013
(Magma) [Seqint(Intseq(NthPrime(n), 4)): n in [1..60]]; // G. C. Greubel, Oct 12 2018
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
EXTENSIONS
More terms from Vincenzo Librandi, Sep 03 2016
STATUS
approved