OFFSET
1,1
COMMENTS
All the numbers having the same set of prime divisors are mapped to the same prime.
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..10000
PROG
(PARI) a(n)={my(m=vecprod(factor(n)[, 1]), p=1); while(!isprime(p), p+=m); p} \\ Andrew Howroyd, Dec 10 2024
CROSSREFS
KEYWORD
easy,nonn,changed
AUTHOR
Amarnath Murthy, Jason Earls, Jul 11 2003
EXTENSIONS
Offset corrected by Andrew Howroyd, Dec 10 2024
STATUS
approved