cp's OEIS Frontend

A350779 Indices where Iccanobif numbers of the form A014258 decrease, i.e., numbers k such that A014258(k) < A014258(k-1).

%I A350779 #21 Jan 19 2022 05:41:35
%S A350779 10,17,19,20,21,23,28,31,32,39,41,45,50,55,58,60,66,70,73,75,78,83,84,
%T A350779 90,92,95,100,101,103,105,113,114,117,123,126,129,131,140,143,147,149,
%U A350779 151,153,155,157,163,166,167,174,176,184,197,200,206,208,210,215,217
%N A350779 Indices where Iccanobif numbers of the form A014258 decrease, i.e., numbers k such that A014258(k) < A014258(k-1).
%H A350779 Chai Wah Wu, <a href="/A350779/b350779.txt">Table of n, a(n) for n = 1..10000</a>
%e A350779 A014258(17) = 715297 < 739401 = A014258(16), so 17 is a term.
%t A350779 Flatten[Position[s,#]&/@Select[s=NestList[{Last@#,FromDigits@Reverse@IntegerDigits@Total@#}&,{0,1},220],!OrderedQ@#&]]  (* _Giorgos Kalogeropoulos_, Jan 16 2022 *)
%o A350779 (Python)
%o A350779 from itertools import count, islice
%o A350779 def A350079_gen(): # generator of terms
%o A350779     a, b = 0, 1
%o A350779     for n in count(1):
%o A350779         if b < a:
%o A350779             yield n
%o A350779         a, b = b, int(str(a+b)[::-1])
%o A350779 A350079_list = list(islice(A350079_gen(),20))
%Y A350779 Cf. A014258.
%K A350779 nonn,base,easy
%O A350779 1,1
%A A350779 _Chai Wah Wu_, Jan 15 2022