|
Search: id:A098831
|
|
| |
|
| 0, 1, 1, 15, 51, 101, 51, 1, 5, 155, 1, 1051, 51, 105, 5, 311, 1335, 355, 105, 31, 55, 51, 105, 1031, 15, 105, 55, 5, 355, 115, 1001, 3115, 35, 551, 331, 1, 305, 51, 3305, 555, 1111, 305, 135, 1131, 1135, 1505, 51, 31, 10355, 5001, 1001, 1335, 1101, 331, 305
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
This is a way to compress A069837.
|
|
PROGRAM
|
(PARI) print(0); q = [0, 1, 3, 5]; foo(n) = local(m); if (n < 4, m = q[n + 1], m = q[n%4 + 1] + 10*foo(n\4)); m; for (n = 2, 70, x = (10^n - 1)*2/9; i = 1; found = 0; while (!found, m = foo(i); if (isprime(x + m), found = 1; print(m), i += 2)));
|
|
CROSSREFS
|
Sequence in context: A044117 A044498 A002602 this_sequence A039405 A043228 A044008
Adjacent sequences: A098828 A098829 A098830 this_sequence A098832 A098833 A098834
|
|
KEYWORD
|
base,easy,nonn,less
|
|
AUTHOR
|
David Wasserman (wasserma(AT)spawar.navy.mil), Nov 02 2004
|
|
|
Search completed in 0.002 seconds
|
