cp's OEIS Frontend

A136739 (0, 1, 2, 3, 2^2, 5, 2*3, 7, 2^3, 3^2, 2*5, 11, 2^2*3, 13, ...) transform in (0*(1+2), 3*(2+2), 5*(2+3), 7*(2+3), 3*(2+2), 5*(11+2), 2*(3+13), ...).

%I A136739 #17 Jan 01 2017 15:46:55
%S A136739 0,12,25,35,12,65,32,20,30,85,42,16,91,115,21,32,12,217,108,16,209,45,
%T A136739 10,777,45,138,20,172,55,125,282,27,14,57,132,12,65,30,589,236,198,68,
%U A136739 18,108,28,268,442,24,355,225,80,20,52,55,1053,32,172,332,36,765,93,300
%N A136739 (0, 1, 2, 3, 2^2, 5, 2*3, 7, 2^3, 3^2, 2*5, 11, 2^2*3, 13, ...) transform in (0*(1+2), 3*(2+2), 5*(2+3), 7*(2+3), 3*(2+2), 5*(11+2), 2*(3+13), ...).
%H A136739 Michael De Vlieger, <a href="/A136739/b136739.txt">Table of n, a(n) for n = 1..10000</a>
%e A136739 a(1) = 0*(1+2)  = 0;
%e A136739 a(2) = 3*(2+2)  = 12;
%e A136739 a(3) = 5*(2+3)  = 25;
%e A136739 a(4) = 7*(2+3)  = 35;
%e A136739 a(5) = 3*(2+2)  = 12;
%e A136739 a(6) = 5*(11+2) = 65;
%e A136739 a(7) = 2*(3+13) = 32;
%e A136739 a(8) = 2*(7+3)  = 20; etc.
%t A136739 #1 (#2 + #3) & @@ # & /@ Partition[#, 3, 3] &@ Flatten[{0}~Join~Array[Map[If[Last@ # == 1, First@ #, #] &, FactorInteger@ #] &, 89]] (* _Michael De Vlieger_, Jan 01 2017 *)
%Y A136739 Cf. A141269, A141270.
%K A136739 nonn
%O A136739 1,2
%A A136739 _Juri-Stepan Gerasimov_, Oct 31 2008
%E A136739 Entries checked by _R. J. Mathar_, Apr 25 2010