|
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)
|
|
|
Search completed in 0.002 seconds
|
