A225002 Duplicate of A047290.

1, 4, 6, 8, 11, 13, 15, 18, 20, 22, 25, 27, 29, 32, 34, 36, 39, 41, 43, 46, 48, 50, 53, 55, 57, 60, 62, 64, 67, 69, 71, 74, 76, 78, 81, 83, 85, 88, 90, 92, 95, 97, 99, 102, 104, 106, 109, 111, 113, 116, 118, 120, 123, 125, 127, 130, 132, 134, 137, 139, 141

Offset: 1

Author

T. D. Noe, Apr 26 2013

Keywords

• dead

Programs

Mathematica

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