A225003 Duplicate of A047332.
23, 2, 3, 5, 6, 7, 9, 10, 12, 13, 14, 16, 17, 19, 20, 21, 23, 24, 26, 27, 28, 30, 31, 33, 34, 35, 37, 38, 40, 41, 42, 44, 45, 47, 48, 49, 51, 52, 54, 55, 56, 58, 59, 61, 62, 63, 65, 66, 68, 69, 70, 72, 73, 75, 76, 77, 79, 80, 82, 83, 84, 86, 87, 89, 90, 91, 93
Offset: 1
Keywords
Programs
-
Mathematica
th = E^(5/7); t = Table[Floor[1/FractionalPart[th^(1/n)]], {n, 100}]
Comments