OFFSET
1,1
COMMENTS
A sum and digit set based prime generator function.
MATHEMATICA
a={1, 3, 7, 9} a1={1, 3, 7, 9, 0} digits=100 b=Flatten[Table[10*Sum[10^m*a1[[1+Mod[m, 5]]], {m, 0, n}]+a, {n, 0, digits}]]; d=Delete[Union[c], 1]
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Roger L. Bagula, Jan 05 2004
STATUS
approved