Есть ли в этой последовательности член, сумма цифр которого равна 1 - QBasic

Формулировка задачи:

Задана числовая последовательность 2, 4, 8, 16, 23, 28, 38, ... Каждый член этой последовательности (кроме первого) определяется как сумма предыдущего члена последовательности и плюс сумма цифр этого же (предыдущего) члена последовательности Определить: Есть ли в этой последовательности член, сумма цифр которого равна 1 Вывести на экран этот член и его порядковый номер. Программа нашла (проверив 40000 чисел) такое число. Оно равно 10000, его номер 594. ... Вопрос А есть ли еще подобные числа? Или это единственное число? Вероятно qbasic не сможет на этот вопрос дать ответ - ведь приходится вычислять все члены последовательности!!! А может существует более быстрый алгоритм?

REM
REM 2, 4, 8, 16, 23, 28, 38,...
REM 10000  (594)
REM
 
DECLARE FUNCTION sz! (x!)
 
CLS
a = 1
 
FOR i = 1 TO 40000
   a = a + sz(a)
   IF a MOD 10000 = 0 THEN PRINT a; i
NEXT
END
 
FUNCTION sz (x)
   IF x <= 9 THEN
      sz = x
   ELSE
      sz = x MOD 10 + sz(x \ 10)
   END IF
END FUNCTION

Решение задачи: «Есть ли в этой последовательности член, сумма цифр которого равна 1»

Листинг программы

IF a MOD 10000 = 0 THEN PRINT a; i

Объяснение кода листинга программы

В данном коде используется условная конструкция IF для проверки условия, что остаток от деления переменной a на 10000 равен нулю. Если это условие выполняется, то выполняется блок кода, который содержит команду PRINT для вывода значения переменной a и переменной i. Однако, в данном коде не определено значение переменной i, поэтому данная команда не будет выполнена. Также в коде нет описания последовательности, в которой нужно найти член с суммой цифр равной 1. Поэтому, данный код не решает поставленную задачу.