|
| |
|
|
A295018
|
|
Squares whose largest digit is 8.
|
|
4
|
|
|
|
81, 484, 784, 841, 1681, 3481, 3844, 5184, 6084, 8100, 8281, 8464, 8836, 10816, 11881, 14884, 15876, 16384, 18225, 22801, 25281, 28224, 28561, 31684, 33856, 36481, 36864, 38025, 38416, 40804, 43681, 48400, 48841, 53824, 58081, 58564, 67081, 68121, 68644, 71824, 77284, 77841, 78400
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Robert Israel, Table of n, a(n) for n = 1..10000
|
|
|
FORMULA
|
a(n) = A295008(n)^2.
|
|
|
MAPLE
|
Res:= NULL: count:= 0:
for n from 1 while count < 50 do
if max(convert(n^2, base, 10))=8 then
count:= count+1; Res:= Res, n^2;
fi
od:
Res; # Robert Israel, Jul 21 2019
|
|
|
MATHEMATICA
|
Select[Range[300]^2, Max[IntegerDigits[#]]==8&] (* Harvey P. Dale, Jul 08 2020 *)
|
|
|
PROG
|
(PARI) is_A295018(n)=issquare(n)&&n&&vecmax(digits(n))==8 \\ "&&n" avoids an error message for n=0.
|
|
|
CROSSREFS
|
Cf. A295008 (square roots of the terms), A277946 - A277948 (same for digit 2..4), A295015 - A295019 (same for digit 5..9).
Cf. A000290 (the squares).
Sequence in context: A250620 A237082 A236651 * A250613 A237077 A236646
Adjacent sequences: A295015 A295016 A295017 * A295019 A295020 A295021
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
M. F. Hasler, Nov 12 2017
|
|
|
STATUS
|
approved
|
| |
|
|
