(49G) OEIS A028907

[mfleming]

I'm sure there's a better APL expression, but I have a pretty poor handicap in code golf

Code:


      OEIS_A028907←{10⊥a[⍋a←(10⍴⍨(≢⍕)⍵)⊤⍵]}
      OEIS_A028907 321
123
      (¯1+⍳32)*2
0 1 4 9 16 25 36 49 64 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841 900 961
      OEIS_A028907¨(¯1+⍳32)*2
0 1 4 9 16 25 36 49 46 18 1 112 144 169 169 225 256 289 234 136 4 144 448 259 567 256 667 279 478 148 9 169

(Beware the mangled Tally symbol next to Thorn)