OFFSET
1,4
COMMENTS
This is a way to compress A069837.
PROG
(PARI) foo(n) = local(m); if (n < 4, m = q[n + 1], m = q[n%4 + 1] + 10*foo(n\4)); m;
print1(0, ", "); q = [0, 1, 3, 5]; 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; print1(m, ", "), i += 2)));
CROSSREFS
KEYWORD
base,easy,nonn,less
AUTHOR
David Wasserman, Nov 02 2004
STATUS
approved