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

Author

T. D. Noe, Apr 26 2013

Keywords

• dead

Programs

Mathematica

th = E^(5/7); t = Table[Floor[1/FractionalPart[th^(1/n)]], {n, 100}]