OFFSET
0,4
COMMENTS
a(n) is odd for all positive n>0; a(n) = n iff n is odd.
LINKS
FORMULA
From Antti Karttunen, May 18 2021: (Start)
a(0) = 0, a(2n+1) = 2n+1, a(2n) = a(A076934(2n)).
a(n) = n / A329379(n).
(End)
EXAMPLE
a(18) = 3, 18/6 = 3. though 18/2 = 9.
MATHEMATICA
f[n_] := Block[{m = n, k = n}, While[k > 1, While[ IntegerQ[m/k! ], m = m/k! ]; k-- ]; m]; Table[ f[n], {n, 0, 79}] (* Robert G. Wilson v *)
PROG
(PARI)
A076934(n) = for(k=2, oo , if(n%k, return(n), n /= k));
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Mar 30 2004
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Aug 25 2005
Definition further clarified by Antti Karttunen, May 18 2021
STATUS
approved