%I A089690
%S A089690 3,7,11,13,17,19,331,337,99991,33333331,777777773,11111111111111119,
%T A089690 333333333333333331,999999999999999999999999999999999999999999991,
%U A089690 333333333333333333333333333333333333333333333333333333333333333333333333333331
%N A089690 a={1,3,7,9} a1={1,3,7,9,0} b[n]=Flatten[Table[10*Sum[10^m*a1[[1+Mod[n,
               5]]],{m,0,n}]+a,{n,0,digits}]]; a[m]=if b[n] is prime then b[n]
%C A089690 A strange set of primes from a prime generator function experiment.
%C A089690 The digit repeatings in these numbers which are primes make them interesting. 
               It doesn't seem like they should be primes.
%t A089690 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]
%Y A089690 Sequence in context: A023236 A038920 A091633 this_sequence A020574 A020618 
               A055211
%Y A089690 Adjacent sequences: A089687 A089688 A089689 this_sequence A089691 A089692 
               A089693
%K A089690 nonn
%O A089690 1,1
%A A089690 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 05 2004