|
MATHEMATICA
|
A069100={2, 13, 107, 1021, 10061, 100069, 1000117, 10000189, 100000193, 1000000181, 10000000259, 100000000193, 1000000000303, 10000000000411, 100000000000487, 1000000000000513, 10000000000000931, 100000000000000591}; A107108=Flatten[{2, Table[A069100[[i]]-10^(i-1), {i, 2, 18}]}]
|