OFFSET
1,1
COMMENTS
A strange set of primes from a prime generator function experiment.
The digit repeatings in these numbers which are primes make them interesting. It doesn't seem like they should be primes.
MATHEMATICA
a={1, 3, 7, 9} a1={1, 3, 7, 9, 0} digits=100 b=Flatten[Table[10*Sum[10^m*a1[[1+Mod[n, 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
AUTHOR
Roger L. Bagula, Jan 05 2004
STATUS
approved