OFFSET
1,1
COMMENTS
a(16) > (10^16-1)/9. a(17) = 197351535173531. a(n) > (10^16-1)/9 for n >= 18. [Donovan Johnson, Sep 21 2010]
EXAMPLE
a(2) = 31, the two primes are 31 and 37. a(7) = 3 and the primes are 3, 5, 7, 11, 13, 17, and 19.
MATHEMATICA
id[n_] := IntegerDigits[n]; eodQ[n_, i_] := And @@ OddQ[Flatten[id[Table[NextPrime[n, k], {k, 0, i - 1}]]]] && Or @@ EvenQ[id[NextPrime[n, -1]]] && Or @@ EvenQ[id[NextPrime[n, i]]]; Table[n = 2; While[! eodQ[x = Prime[n], i], n++]; x, {i, 8}] (* Jayanta Basu, Aug 08 2013 *)
CROSSREFS
KEYWORD
hard,more,nonn,base
AUTHOR
Amarnath Murthy, Mar 09 2002
EXTENSIONS
1137911 from Larry Reeves (larryr(AT)acm.org), Oct 09 2003
a(9)-a(11) from Donovan Johnson, Apr 03 2008
a(12)-a(15) from Donovan Johnson, Sep 21 2010
STATUS
approved