OFFSET
1,3
COMMENTS
PROG
(PARI)
A257993(n) = { for(i=1, oo, if(n%prime(i), return(i))); }
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
(PARI)
A328761list(up_to) = { my(v=vector(up_to), k); for(n=0, oo, k=A328578(n); if(k>#v, return(v)); if(!v[k], v[k] = n; print("Found ", k, " at n=", n)); if(k>=#v, return(v))); };
v328761 = A328761list(52);
A328761(n) = if(2==n, 0, v328761[n]);
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 27 2019
STATUS
approved