Matematyka.pl

Mam problem z wygenerowaniem takiego ciągu liczb
\(\displaystyle{ \left\{ 5112,2556,1278,639,319,159,79,39,19,9\right\}}\)
czyli chodzi o to aby zaczynając od 5112 dzielić ją na pół, a jeśli liczba jest nieparzysta to najpierw odejmowała sie jedynka i dalej dzieliło się na pół.
Na pewno musi być coś z Table. Dalej kombinowałam z If, While ale nie wychodzi mi.
If zapisałam w taki sposób
\(\displaystyle{ If \left[ EvenQ\left[ i\right] , i/2, \left( i - 1\right) /2\right]}\)
Proszę o pomoc

Nie widzę rozwiązania z Table, przecież nie widać od razu, kiedy ciąg się skończy. Polecam rekurencję:

już coś mam. dziękuję. chciałabym sie tylko dowiedzieć jak działa "&&" i czemu służy Clear@fun?

Pierwsza linijka usuwa definicję fun (bo nie wiem, czy nie deklarowałaś coś pod tą nazwą), podwójny ampersand to logiczna koniunkcja.

dziękuję, sama bym nigdy do tego nie doszła, a potrzebne mi to było do pracy mgr

Inny sposób to po prostu dzielić liczby przez 2 i skorzystać z funkcji podłoga:

Medea 2 pisze:przecież nie widać od razu, kiedy ciąg się skończy

skończy się po ok. \(\displaystyle{ \lceil \log_2 5112 \rceil}\) iteracjach.