OFFSET
1,3
EXAMPLE
a(5) = 1 and the number 113111 is a prime.
MATHEMATICA
a[1] = 1; a[n_] := a[n] = Block[{k = 1, c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ Union[ Mod[ IntegerDigits[k], 2]] != {1} || !PrimeQ[
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Mar 26 2002
EXTENSIONS
Corrected and extended by Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Mar 30 2003
STATUS
approved