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,2

Links

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

Mathematica

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

Crossrefs

Cf. A136734, A141269.

Sequence in context: A257926 A116946 A357128 * A040032 A239394 A006582

Adjacent sequences: A141267 A141268 A141269 * A141271 A141272 A141273

Keyword

nonn,less

Author

Juri-Stepan Gerasimov, Aug 08 2008

Extensions

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

Status

approved