OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Flatten[Table[Select[FromDigits/@Tuples[{1, 5}, n], PrimeQ], {n, 7}]] (* Vincenzo Librandi, Jul 27 2012 *)
PROG
(PARI) {L=[1, 5]; for(d=1, 9, u=vector(d, i, 10^(d-i))~; forvec(v=vector(d, i, [1, #L]), ispseudoprime(t=vector(d, i, L[v[i]])*u)&print1(t", ")))} \\ - M. F. Hasler, Nov 05 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved