A095825 Numbers k such that k + largest digit of k is a square.

0, 2, 8, 13, 28, 33, 57, 74, 91, 137, 140, 163, 188, 248, 251, 281, 317, 321, 391, 477, 524, 568, 668, 722, 777, 833, 891, 952, 1017, 1022, 1081, 1148, 1151, 1288, 1363, 1437, 1440, 1591, 1674, 1757, 1841, 1927, 2108, 2113, 2295, 2301, 2392, 2491, 2592

Offset

1,2

Links

Table of n, a(n) for n=1..49.

Example

74 is a term because 74 + 7 = 81 = 9^2.

Mathematica

Select[Range[0, 3000], IntegerQ[Sqrt[#+Max[IntegerDigits[#]]]]&] (* Harvey P. Dale, Mar 20 2023 *)

Crossrefs

Cf. A054055.

Sequence in context: A037382 A297810 A298142 * A106359 A257036 A077241

Adjacent sequences: A095822 A095823 A095824 * A095826 A095827 A095828

Keyword

base,easy,nonn

Author

Jason Earls, Jul 10 2004

Status

approved