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