OFFSET
1,1
COMMENTS
The next two terms both start with 3 and have 83 and 225 digits, respectively. Those are the only other terms with fewer than 352 digits. Cf. A062216.
MATHEMATICA
Module[{nn=60, a, b}, a=Table[FromDigits[Join[PadRight[{}, 2n, {1, 3}], {1}]], {n, nn}]; b=Table[FromDigits[Join[PadRight[{}, 2n, {3, 1}], {3}]], {n, nn}]; Select[Sort[Join[a, b]], PrimeQ]] (* Harvey P. Dale, Sep 07 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Felix Fröhlich, May 23 2014
STATUS
approved