A141270 (0, 1, 2, 3, 2^2, 5, 2*3, 7, 2^3, 3^2, 2*5, 11, 2^2*3, ...) transform in (0*1, 2*3, 2*2, 5*2, 3*7, 2*3, 3*2, 2*5, 11*2, 2*3, ...).

0, 6, 4, 10, 21, 6, 6, 10, 22, 6, 26, 21, 10, 68, 6, 38, 4, 15, 14, 253, 6, 15, 4, 39, 6, 14, 58, 15, 62, 15, 22, 85, 14, 6, 74, 38, 39, 6, 205, 6, 301, 4, 33, 10, 46, 94, 12, 14, 10, 6, 34, 26, 106, 9, 55, 6, 21, 38, 1711, 4, 15, 122, 93, 14, 12, 65, 6, 737, 4, 51, 46, 35, 142, 9

Offset: 1

Author

Juri-Stepan Gerasimov, Aug 08 2008

Keywords

• nonn
• less

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A136734, A141269.

Programs

Mathematica

Map[Times @@ # &, Partition[Flatten[{0}~Join~Array[DeleteCases[Flatten@ FactorInteger[#], 1] &, 72] /. {} -> {1}], 2, 2]] (* Michael De Vlieger, Oct 20 2021 *)

Extensions

A 65 replaced with 85, a 54 with 74, etc. by R. J. Mathar, Feb 21 2009