cp's OEIS Frontend

A154770 a(n+1) = A154771(a(n)) = sum of all distinct "valid substrings" of a(n); a(1)=10 (least nontrivial choice).

%I A154770 #10 Dec 23 2024 14:53:42
%S A154770 10,11,12,15,21,24,30,33,36,45,54,63,72,81,90,99,108,127,176,283,407,
%T A154770 458,578,733,849,1003,1117,1381,2044,2318,2953,4397,5435,6557,7964,
%U A154770 9989,12279,16572,26426,36970,49970,67738,84716,100181,111599,139413,209606
%N A154770 a(n+1) = A154771(a(n)) = sum of all distinct "valid substrings" of a(n); a(1)=10 (least nontrivial choice).
%C A154770 "Valid substrings" means all numbers that appear as substring of n (written in decimal system). Starting values < 10 would yield a constant sequence.
%H A154770 E. Angelini, <a href="https://web.archive.org/web/*/http://list.seqfan.eu/oldermail/seqfan/2009-January/000534.html">Sum of all valid substrings (VS)</a>, SeqFan list, Jan 16 2009
%e A154770 a(1) = 10 has { 0, 1, 10 } as distinct substrings,
%e A154770 a(2) = 0+1+10 = 11 has { 1, 11 } as distinct substrings,
%e A154770 a(3) = 1+11 = 12 has { 1, 2, 12 } as distinct substrings,
%e A154770 a(4) = 1+2+12 = 15 has { 1, 5, 15 } as distinct substrings.
%o A154770 (PARI) A154770( n=2, a=10 ) = { local(d); while( n--, a=vecsort(concat(vector(d=#Str(a),i,vector(d,j,a%10^j)+(d--&!a\=10))),NULL,8);a*=vector(#a,i,1)~); a }
%o A154770 print1(a=10);for(i=1,50,print1("," a=A154770(,a)))
%Y A154770 Cf. A004207, A154771.
%K A154770 base,easy,nonn
%O A154770 1,1
%A A154770 _Eric Angelini_ and _M. F. Hasler_, Jan 16 2009
%E A154770 The word "distinct" added to definition Jan 19 2009 at the suggestion of _Hugo van der Sanden_.