|
%I #11 Sep 27 2018 11:09:00
%S 0,2,4,4,8,12,8,12,16,10,20,30,16,26,36,22,32,42,20,30,40,26,36,46,32,
%T 42,52,28,56,84,40,68,96,52,80,108,40,68,96,52,80,108,64,92,120,52,80,
%U 108,64,92,120,76,104,132,56,84,112,68,96,124,80,108,136,68,96,124,80
%N n + reversal of base 3 digits of n (written in base 10).
%C If n has an even number of digits in base 3 then a(n) is a multiple of 4
%H Seiichi Manyama, <a href="/A055946/b055946.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) =n+A030102(n)
%p A055946 := proc(n)
%p n+A030102(n) ;
%p end proc: # _R. J. Mathar_, May 28 2016
%t Array[#+FromDigits[Reverse[IntegerDigits[#,3]],3]&,70,0] (* _Harvey P. Dale_, Nov 09 2017 *)
%Y Cf. A056964.
%K base,nonn
%O 0,2
%A _Henry Bottomley_, Jul 18 2000
|
