A201217 Numbers such that (closest square) = (closest cube).

0, 1, 2, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 703, 704, 705, 706, 707, 708, 709, 710, 711, 712, 713, 714, 715, 716, 717, 718, 719, 720, 721, 722, 723, 724, 725, 726, 727, 728, 729, 730, 731, 732, 733, 734, 735, 736, 737, 738, 739

Offset: 1

Author

Reinhard Zumkeller, Nov 28 2011

Keywords

• nonn

Comments

A061023(a(n)) = 0; A053187(a(n)) = A201053(a(n));

A001014 is a subsequence (6th powers).

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..6051

Programs

Haskell

import Data.List (elemIndices)
a201217 n = a201217_list !! (n-1)
a201217_list = elemIndices 0 a061023_list
-- Reinhard Zumkeller, Nov 28 2011