cp's OEIS Frontend

A277338 Reverse and Add! sequence starting with 295.

%I A277338 #36 Nov 30 2016 06:11:01
%S A277338 295,887,1675,7436,13783,52514,94039,187088,1067869,10755470,18211171,
%T A277338 35322452,60744805,111589511,227574622,454050344,897100798,1794102596,
%U A277338 8746117567,16403234045,70446464506,130992928913,450822227944,900544455998,1800098901007,8801197801088,17602285712176,84724043932847,159547977975595
%N A277338 Reverse and Add! sequence starting with 295.
%C A277338 Apart from the initial term in both sequences, the same as A006960.
%C A277338 a(0) = 295; a(n+1) = a(n) + A004086(a(n)).
%C A277338 295 is conjectured to be the second smallest initial term which does not lead to a palindrome. Also, 196 is possibly the smallest initial term which does not lead to a palindrome. a(0) = 196 is described in A006960.
%H A277338 Wikipedia, <a href="https://en.wikipedia.org/wiki/Lychrel_number">Lychrel number</a>
%F A277338 a(n) = A006960(n) for n >= 1.
%F A277338 a(n) = A243238(295, n+1). - _Felix Fröhlich_, Nov 20 2016
%e A277338 a(0) = 295
%e A277338 a(1) = 295 + 592 = 887
%e A277338 a(2) = 887 + 788 = 1675
%e A277338 ...
%p A277338 with(StringTools):
%p A277338 revnum := proc (n)
%p A277338 local a, b, c;
%p A277338 description "to REVerse the digits of a NUMber";
%p A277338 a := convert(n, string);
%p A277338 b := Reverse(a);
%p A277338 c := convert(b, decimal, 10)
%p A277338 end proc;
%p A277338 f := 0;
%p A277338 e := 295;
%p A277338 count := 0;
%p A277338 while f <> e do
%p A277338 e := e+f;
%p A277338 f := revnum(e);
%p A277338 count := count+1
%p A277338 end do;
%t A277338 a[1] = 295; a[n_] := a[n] = FromDigits@ Reverse@ IntegerDigits@ # + # &@ a[n - 1]; Array[a, 29] (* _Michael De Vlieger_, Oct 14 2016 *)
%o A277338 (PARI) terms(n) = my(x=295, i=0); while(1, print1(x, ", "); x=x+eval(concat(Vecrev(Str(x)))); i++; if(i==n, break))
%o A277338 /* Print initial 30 terms as follows: */
%o A277338 terms(30) \\ _Felix Fröhlich_, Nov 15 2016
%Y A277338 Cf. A004086.
%Y A277338 Almost the same as A006960.
%Y A277338 See index entries at A023108.
%K A277338 nonn,base
%O A277338 0,1
%A A277338 _Matt C. Anderson_, Oct 09 2016