Search Results
| Search type | Search syntax |
|---|---|
| Tags | [tag] |
| Exact | "words here" |
| Author |
user:1234 user:me (yours) |
| Score |
score:3 (3+) score:0 (none) |
| Answers |
answers:3 (3+) answers:0 (none) isaccepted:yes hasaccepted:no inquestion:1234 |
| Views | views:250 |
| Code | code:"if (foo != bar)" |
| Sections |
title:apples body:"apples oranges" |
| URL | url:"*.example.com" |
| Saves | in:saves |
| Status |
closed:yes duplicate:no migrated:no wiki:no |
| Types |
is:question is:answer |
| Exclude |
-[tag] -apples |
| For more details on advanced search visit our help page | |
Results tagged with differential-equations
Search options not deleted
user 46781
Questions on the symbolic (DSolve, DifferentialRoot) and numerical (NDSolve) solutions of differential equations in Mathematica.
4
votes
Accepted
How to find the maximum value of n that satisfies the sum of a sequence of numbers?
Clear[a, s]
a[n_Integer] := Module[
{k},
k = Floor[Log[2, n] + 1];
2^k]
s[n_Integer] := Sum[a[i], {i, 1, n}]
NestWhile[# + 1 &, 1, s[#] < 2022 &] - 1
(* 51 *)
s[51]
(* 1962 *)
s[52]
(* 2026 * …
- 146