Magnanimous numbers: Difference between revisions

</pre>

=={{header|J}}==

<pre>

write_sum_expressions=: ([: }: ]\) ,"1 '+' ,"1 ([: }. ]\.) NB. combine prefixes with suffixes

interstitial_sums=: ".@write_sum_expressions@":

primeQ=: 1&p:

magnanimousQ=: 1:`([: *./ [: primeQ interstitial_sums)@.(>&9)

A=: (#~ magnanimousQ&>) i.1000000 NB. filter 1000000 integers

#A

434

strange=: ({. + [: i. -~/)@:(_1 0&+)

I=: _2 <@strange\ 1 45 241 250 391 400

,. I (<@:{~ >)~"0 _ A

┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐

│0 1 2 3 4 5 6 7 8 9 11 12 14 16 20 21 23 25 29 30 32 34 38 41 43 47 49 50 52 56 58 61 65 67 70 74 76 83 85 89 92 94 98 101 110│

├──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤

│17992 19972 20209 20261 20861 22061 22201 22801 22885 24407 │

├──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤

│486685 488489 515116 533176 551558 559952 595592 595598 600881 602081 │

└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘