login
A318470
Multiplicative with a(p^e) = A260443(e).
3
1, 2, 2, 3, 2, 4, 2, 6, 3, 4, 2, 6, 2, 4, 4, 5, 2, 6, 2, 6, 4, 4, 2, 12, 3, 4, 6, 6, 2, 8, 2, 18, 4, 4, 4, 9, 2, 4, 4, 12, 2, 8, 2, 6, 6, 4, 2, 10, 3, 6, 4, 6, 2, 12, 4, 12, 4, 4, 2, 12, 2, 4, 6, 15, 4, 8, 2, 6, 4, 8, 2, 18, 2, 4, 6, 6, 4, 8, 2, 10, 5, 4, 2, 12, 4, 4, 4, 12, 2, 12, 4, 6, 4, 4, 4, 36, 2, 6, 6, 9, 2, 8, 2, 12, 8
OFFSET
1,2
FORMULA
For all n >= 1, A001222(a(n)) = A318306(n).
PROG
(PARI)
A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From A003961
A260443(n) = if(n<2, n+1, if(n%2, A260443(n\2)*A260443(n\2+1), A003961(A260443(n\2))));
A318470(n) = factorback(apply(e -> A260443(e), factor(n)[, 2]));
CROSSREFS
Differs from A293442 for the first time at n=32, where a(32) = 18, while A293442(32) = 10.
Sequence in context: A305800 A366293 A293442 * A175501 A144370 A239514
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Aug 30 2018
STATUS
approved