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), ...).

0, 12, 25, 35, 12, 65, 32, 20, 30, 85, 42, 16, 91, 115, 21, 32, 12, 217, 108, 16, 209, 45, 10, 777, 45, 138, 20, 172, 55, 125, 282, 27, 14, 57, 132, 12, 65, 30, 589, 236, 198, 68, 18, 108, 28, 268, 442, 24, 355, 225, 80, 20, 52, 55, 1053, 32, 172, 332, 36, 765, 93, 300

Offset: 1

Author

Juri-Stepan Gerasimov, Oct 31 2008

Keywords

• nonn

Examples

			a(1) = 0*(1+2)  = 0;
a(2) = 3*(2+2)  = 12;
a(3) = 5*(2+3)  = 25;
a(4) = 7*(2+3)  = 35;
a(5) = 3*(2+2)  = 12;
a(6) = 5*(11+2) = 65;
a(7) = 2*(3+13) = 32;
a(8) = 2*(7+3)  = 20; etc.
		

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A141269, A141270.

Programs

Mathematica

#1 (#2 + #3) & @@ # & /@ Partition[#, 3, 3] &@ Flatten[{0}~Join~Array[Map[If[Last@ # == 1, First@ #, #] &, FactorInteger@ #] &, 89]] (* Michael De Vlieger, Jan 01 2017 *)

Extensions

Entries checked by R. J. Mathar, Apr 25 2010