OFFSET
1,1
COMMENTS
All the terms in the sequence are 4-digit primes because leading zeros are not permitted.
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..1514
MATHEMATICA
With[{s5=FromDigits/@Partition[RealDigits[Sqrt[5], 10, 500][[1]], 4, 1]}, Select[ s5, IntegerLength[#]==4&&PrimeQ[#]&]] (* Harvey P. Dale, Mar 25 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
K. D. Bajpai, Apr 18 2014
EXTENSIONS
Mathematica program corrected by Harvey P. Dale, Mar 25 2018
STATUS
approved