A378492 Squares where larger digits have larger multiplicity.

0, 1, 4, 9, 144, 441, 1444, 29929, 55225, 166464, 255025, 299209, 633616, 646416, 767376, 4999696, 9696996, 34433424, 228281881, 414041104, 414488881, 424442404, 536663556, 969699600, 1649496996, 1929229929, 2636206336, 2666999449, 2929299129, 2996029696, 4664343616

Offset

1,3

Links

Alois P. Heinz, Table of n, a(n) for n = 1..500

Maple

filter:= proc(n) local L, S;
   L:= convert(n, base, 10);
   S:= Statistics:-Tally(L, output=list);
   S:= sort(S, (a, b) -> lhs(a) < lhs(b));
   andmap(t -> rhs(S[t])<rhs(S[t+1]), [$1..nops(S)-1])
end proc:
select(filter, [seq(i^2, i=0..10^5)]); # Robert Israel, Nov 29 2024

Mathematica

increasingQ[L_]:=Min[Rest[(L-RotateRight[L])]]>0;
sortedQ[n_]:=increasingQ[Sort[Tally[IntegerDigits[n]]][[All, 2]]]
Select[Range[575000000]^2, sortedQ]

Crossrefs

Cf. A000290, A018884, A052046, A235718, A378498.

Sequence in context: A027451 A227744 A035127 * A354078 A061267 A061269

Adjacent sequences: A378489 A378490 A378491 * A378493 A378494 A378495

Keyword

nonn,base

Author

Erich Friedman, Nov 28 2024

Status

approved