OFFSET
1,1
MATHEMATICA
Table[FromDigits[Join[PadRight[{}, n, 1], PadRight[{}, n, 0], PadRight[{}, n, 1]]], {n, Prime[Range[7]]}] (* Harvey P. Dale, Feb 05 2017 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Omar E. Pol, Mar 29 2008
STATUS
approved