OFFSET
1,4
LINKS
Reikku Kulon, Table of n, a(n) for n = 1..10000
MATHEMATICA
rad[n_]:= Module[{aux = FactorInteger[n]}, Product[aux[[i, 1]], {i, Length[aux]}]]; a[n_] := Which[PrimeQ[n], 1, IntegerQ[n/4], 2*rad[n], True, rad[n]] Table[a[n], {n, 1, 100}] (* José María Grau Ribas, Feb 16 2010 *)
PROG
(Haskell)
a144907 x | a010051 x == 1 = 1
| x `mod` 4 == 0 = 2 * rad
| otherwise = rad where rad = a007947 x
-- Reinhard Zumkeller, Mar 12 2014
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Reikku Kulon, Sep 24 2008
STATUS
approved