OFFSET
1,1
MATHEMATICA
a={1, 3, 7, 9};
a1={0, 1, 3, 7, 9};
digits=17;
b=Flatten[Table[10*Sum[10^m*a1[[1+Mod[n+m, 5]]], {m, 0, n}]+a, {n, 0, digits}]];
c=Table[If[PrimeQ[b[[n]]]==True, b[[n]], 0], {n, 1, Dimensions[b][[1]]}];
d=Delete[Union[c], 1]
CROSSREFS
KEYWORD
nonn,base,less,uned
AUTHOR
Roger L. Bagula, Jan 05 2004
STATUS
approved