Verwandte Themen

Wie erstelle ich in Mathematica eine Liste von Zahlen, deren Quersumme größergleich 5 ist?

Guten Abend zusammen,

ich würde gerne in Mathematica eine Liste von Zahlen bis 100 erstellen, deren Quersumme größergleich 5 ist.

Sprich 1-4 fliegt raus, 5-9 bleibt drin, 10-13 ist raus usw.

Nun habe ich nach reichlicher Überlegung das Folgende gebastelt:

Select[
 Total[ (*Addiert die Ziffern auf*)
  IntegerDigits[ (*trennt die Zahlen in Ziffern auf*)
   Range[100]], (*erzeugt die Zahlen bis 100*) 
  {2}], 
 GreaterThan[4]] (*Auswahlbedingung >=5*)

Damit wird nun eine Liste der Quersummen ausgegeben, die 5 oder größer sind. Damit bin ich aber noch nicht am Ziel.

  1. Frage: Beim Aufaddieren der Ziffern wird keine andere Zahl als 2 zugelassen, die Hilfe gibt dazu nur ein Beispiel an. Ist es korrekt, dass diese für das Lesen zeilenweise nötig ist?
  2. Frage: Wie setze ich diesen Vektor nun ein, um ihn als Bedingung zum Anzeigen der Zahl zu verwenden?

In anderer Sprache würde ich den Zahlenvektor mit einem Vektor aller Quersummen hochzählen und letzteren ständig auf die Größe prüfen. Ist diese zu klein, würde ich die entsprechende Zahl aus dem Zahlenvektor streichen.
Bei Mathematica muss ich in diesem Fall wohl ein "Nothing" enschieben, so viel habe ich herausgefunden. Nur wie ich einen solchen Vergleich implementiere, habe ich noch nicht begriffen.

Danke für eure Hilfe im Voraus!

Computer, Schule, Mathematik, programmieren, rechnen, mathematica, Wolfram Alpha

Meistgelesene Fragen zum Thema Wolfram Alpha