7 lines
316 B
Text
7 lines
316 B
Text
Clear[MagnanimousNumberQ]
|
|
MagnanimousNumberQ[Alternatives @@ Range[0, 9]] = True;
|
|
MagnanimousNumberQ[n_Integer] := AllTrue[Range[IntegerLength[n] - 1], PrimeQ[Total[FromDigits /@ TakeDrop[IntegerDigits[n], #]]] &]
|
|
sel = Select[Range[0, 1000000], MagnanimousNumberQ];
|
|
sel[[;; 45]]
|
|
sel[[241 ;; 250]]
|
|
sel[[391 ;; 400]]
|