A074102 Cubes from which deleting a suitable digit leaves a square.

1, 8, 64, 125, 216, 1000, 8000, 9261, 15625, 64000, 85184, 262144, 729000, 1000000, 2146689, 4096000, 8000000, 15625000, 46656000, 64000000, 117649000, 125000000, 216000000, 262144000, 531441000, 1000000000, 1771561000, 2985984000, 4826809000

Offset

0,2

Links

Jayanta Basu, Table of n, a(n) for n = 0..100

Mathematica

drQ[n_] := Or @@ IntegerQ /@ Sqrt[Table[FromDigits[Drop[IntegerDigits[n], {k}]], {k, IntegerLength[n]}]]; Select[Range[1700]^3, drQ] (* Jayanta Basu, Jul 31 2013 *)

Crossrefs

Sequence in context: A161146 A208380 A160428 * A118719 A134739 A116978

Adjacent sequences: A074099 A074100 A074101 * A074103 A074104 A074105

Keyword

nonn,base

Author

Amarnath Murthy, Aug 21 2002

Extensions

Corrected and extended by Robert Gerbicz, Aug 27 2002

Two more terms from Jayanta Basu, Jul 31 2013

Status

approved