A034377 Squares that remain a square if a suitably chosen digit is dropped.

1, 4, 9, 16, 49, 64, 81, 100, 169, 196, 225, 256, 361, 400, 625, 841, 900, 1225, 1296, 1369, 1444, 1521, 1600, 1936, 2025, 2809, 3025, 3249, 4225, 4900, 5329, 5476, 5625, 5776, 5929, 6400, 7225, 8100, 9025, 10000, 12996, 13225, 13689, 15625, 16900

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

1296 = 36^2 belongs to the sequence as removing 2 yields 196 = 14^2. 1444 = 38^2 belongs to the sequence as removing 4 yields 144 = 12^2.

Mathematica

srsQ[n_]:=AnyTrue[FromDigits/@Table[Drop[IntegerDigits[n], {i}], {i, IntegerLength[ n]}], IntegerQ[Sqrt[#]]&]; Select[Range[200]^2, srsQ] (* The program uses the AnyTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jul 16 2016 *)

Crossrefs

Cf. A062387, A034378.

Sequence in context: A219355 A291216 A074101 * A034378 A062387 A029784

Adjacent sequences: A034374 A034375 A034376 * A034378 A034379 A034380

Keyword

nonn,base

Author

Erich Friedman

Status

approved