OFFSET
1,2
LINKS
PROG
(PARI)
A118306(n) = { if(1==n, 1, my(f = factor(n)); my(d = (-1)^primepi(f[1, 1])); for(i=1, #f~, f[i, 1] = prime(primepi(f[i, 1])-d)); factorback(f)); };
A007310(n) = n\2*6-(-1)^n; \\ From M. F. Hasler, Oct 31 2014
A126760(n) = {n&&n\=3^valuation(n, 3)<<valuation(n, 2); n%3+n\6*2}; \\ From M. F. Hasler, Jan 19 2016
for(n=1, 10001, write("b277911.txt", n, " ", A277911(n)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 05 2016
STATUS
approved