A065004 100 written in base n, or -1 if the representation requires digits outside of 0 to 9.
1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111, 1100100, 10201, 1210, 400, 244, 202, 144, 121, 100, 91, 84, 79, 72, -1, 64, -1, -1, 55, 50, -1, -1, 48, 44, 40, -1, -1, -1, -1, -1, 37, 34, 31, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 28, 26, 24, 22, 20, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10
Offset: 1
Programs
-
Mathematica
Table[s = IntegerDigits[100, n]; If[Max[s] > 9, -1, FromDigits[s]], {n, 2, 100}] (* T. D. Noe, Mar 09 2012 *)
Extensions
Extended by T. D. Noe, Mar 09 2012
Title clarified by Sean A. Irvine, Aug 15 2021
Comments