OFFSET
1,1
MATHEMATICA
Do[k = 10^n; While[ !PrimeQ[k] || Union[ PrimeQ[ Map[ FromDigits, Partition[ IntegerDigits[k], n, 1]]]] != {True}, k++ ]; Print[k], {n, 1, 25}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Apr 12 2002
STATUS
approved