OFFSET
1,1
COMMENTS
Subsequence of A000040.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
MATHEMATICA
Select[Table[Prime[n], {n, 5300}], First[IntegerDigits[#]]==5 &] (* Vincenzo Librandi, Aug 08 2014 *)
PROG
(Magma) [p: p in PrimesUpTo(5300) | Intseq(p)[#Intseq(p)] eq 5]; // Vincenzo Librandi, Aug 08 2014
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
EXTENSIONS
More terms from Erich Friedman.
Leading 5 added by Jaroslav Krizek, Apr 29 2010
STATUS
approved