OFFSET
1,1
COMMENTS
These pseudofactors although not unique sets as their domains seem to overlap form twelve subsets of primes based on the first digit set {1,3,7,9} when {2,5} are taken away from the prime set. I'm entering the four {1}'s sets. There exist {3}'s, {7}'s and {9}'s sets of these same four types.
FORMULA
a[n]=Primes ending in one b(m) = if Mod[a[[n]]/9, 10]>3 then a[n]
MATHEMATICA
digits=4*200 a=Delete[Union[Table[If[Mod[Prime[n], 10]==1, Prime[n], 0], {n, 1, digits}]], 1] d2=Dimensions[a][[1]] a9g3=Delete[Union[Table[If[Mod[a[[n]]/9, 10]>3, a[[n]], 0], {n, 1, d2}]], 1]
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Jan 06 2004
STATUS
approved