A080160 - OEIS

A080160

Squares that are digit sums of Wonderful Demlo numbers A002477.

1, 4, 9, 16, 25, 36, 49, 64, 81, 324, 441, 576, 729, 900, 1089, 1296, 2025, 2304, 2601, 2916, 3249, 3600, 3969, 5184, 5329, 5476, 5625, 5776, 5929, 6084, 6241, 6400, 6561, 6724, 6889, 7056, 7225, 7396, 7569, 7744, 7921, 8100, 9801, 10404, 11025, 11664

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

These are the squares in A080151.

LINKS

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

Eric Weisstein's World of Mathematics, Demlo Number

MAPLE

b:=n->sum(convert(((10^(n+1)-1)/9)^2, base, 10)[j], j=1..2*n+1): a:=proc(n) if type(sqrt(b(n)), integer)=true then b(n) else fi end: seq(a(n), n=0..2000); # Emeric Deutsch, Jun 19 2005

MATHEMATICA

A080151[n_] := (9^2)*(n/9 - FractionalPart[n/9] + FractionalPart[n/9]^2)

A080151[Select[Range[10000], IntegerQ[Sqrt[A080151[#]]] &]]

(* Enrique Pérez Herrero, Nov 05 2022 *)

CROSSREFS

Cf. A002477, A080151, A080161, A080162.

Cf. A007953.

Sequence in context: A077356 A077357 A294497 * A110723 A376215 A084617

Adjacent sequences: A080157 A080158 A080159 * A080161 A080162 A080163

KEYWORD

nonn,base

AUTHOR

N. J. A. Sloane, Jun 19 2005

EXTENSIONS

More terms from Emeric Deutsch, Jun 19 2005

STATUS

approved