|
Search: id:A089690
|
|
|
| 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] |
|
+0
1
|
|
| 3, 7, 11, 13, 17, 19, 331, 337, 99991, 33333331, 777777773, 11111111111111119, 333333333333333331, 999999999999999999999999999999999999999999991, 333333333333333333333333333333333333333333333333333333333333333333333333333331
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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
|
Sequence in context: A023236 A038920 A091633 this_sequence A020574 A020618 A055211
Adjacent sequences: A089687 A089688 A089689 this_sequence A089691 A089692 A089693
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 05 2004
|
|
|
Search completed in 0.002 seconds
|
