This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A141270 #22 Jan 25 2023 09:24:03 %S A141270 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, %T A141270 58,15,62,15,22,85,14,6,74,38,39,6,205,6,301,4,33,10,46,94,12,14,10,6, %U A141270 34,26,106,9,55,6,21,38,1711,4,15,122,93,14,12,65,6,737,4,51,46,35,142,9 %N 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, ...). %H A141270 Seiichi Manyama, <a href="/A141270/b141270.txt">Table of n, a(n) for n = 1..10000</a> %t A141270 Map[Times @@ # &, Partition[Flatten[{0}~Join~Array[DeleteCases[Flatten@ FactorInteger[#], 1] &, 72] /. {} -> {1}], 2, 2]] (* _Michael De Vlieger_, Oct 20 2021 *) %Y A141270 Cf. A136734, A141269. %K A141270 nonn,less %O A141270 1,2 %A A141270 _Juri-Stepan Gerasimov_, Aug 08 2008 %E A141270 A 65 replaced with 85, a 54 with 74, etc. by _R. J. Mathar_, Feb 21 2009