OFFSET
1,2
COMMENTS
This sequence can be used as a filter. It matches at least to the following sequence, as for all i, j:
LINKS
FORMULA
a(1) = 1; for n>1, if n = Product prime(i)^e(i), then a(n) = Product prime((e(i)+1)/2)^A000035(e(i)).
MATHEMATICA
Array[Apply[Times, FactorInteger[#] /. {p_, e_} /; p > 0 :> Which[p == 1, 1, EvenQ@ e, 1, True, Prime[(e + 1)/2]]] &, 120] (* Michael De Vlieger, Nov 29 2017 *)
PROG
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Nov 29 2017
STATUS
approved