OFFSET
1,1
COMMENTS
Leading zeros are permitted, so some terms are less than 10 digits in length.
See A104944 for the variant where no leading zeros are allowed. - M. F. Hasler, Nov 01 2014
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]], len, 1]}, Select[egterms, PrimeQ[#]&]]; egp[10]
PROG
(PARI) list_A198784(x=Euler, m=10)=m=10^m; for(k=1, default(realprecision), isprime(p=x\.1^k%m)&&print1(p", ")) \\ The optional arguments can be used to produce other sequences of this series (cf. Crossrefs). Use e.g. \p999 to set precision to 999 digits. - M. F. Hasler, Nov 01 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Oct 29 2011
STATUS
approved