A144916 Integers k for which |A144912| attains a new maximal odd value.

4, 7, 16, 36, 64, 100, 144, 196, 256, 324, 400, 484, 576, 676, 784, 900, 1024, 1156, 1296, 1444, 1600, 1764, 1936, 2116, 2304, 2500, 2704, 2916, 3136, 3364, 3600, 3844, 4096, 4356, 4624, 4900, 5184, 5476, 5776, 6084, 6400, 6724, 7056, 7396, 7744, 8100

Offset: 1

Author

Reikku Kulon, Sep 25 2008

Keywords

• nonn
• easy

Comments

Except for 7, all of these are even squares (A016742). For 7, the new maximum occurs in base 2 and for the rest it occurs in base sqrt(n).

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000
• Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

Crossrefs

Cf. A016742, A144912.

Programs

Mathematica

LinearRecurrence[{3,-3,1},{4,7,16,36,64},100] (* Paolo Xausa, Sep 26 2023 *)

PARI

a(n) = if(n>2, 4*(n-1)^2, 1+3*n); \\ Jinyuan Wang, Jul 21 2020