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
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..500
Programs
-
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])
-
Mathematica
increasingQ[L_]:=Min[Rest[(L-RotateRight[L])]]>0; sortedQ[n_]:=increasingQ[Sort[Tally[IntegerDigits[n]]][[All,2]]] Select[Range[575000000]^2,sortedQ]