login
A071890
a(n) = A071888(n)-n.
4
1, 4, 3, 2, 5, 4, 7, 2, 6, 4, 11, 2, 13, 7, 6, 6, 17, 3, 19, 2, 9, 4, 23, 2, 5, 4, 3, 2, 29, 3, 31, 2, 6, 4, 7, 2, 37, 4, 3, 2, 41, 4, 43, 2, 6, 12, 47, 3, 21, 5, 6, 6, 53, 3, 10, 2, 9, 4, 59, 2, 61, 4, 3, 2, 5, 3, 67, 2, 9, 4, 71, 2, 73, 4, 3, 2, 14, 4, 79, 2, 6, 4, 83, 2, 10
OFFSET
1,2
LINKS
EXAMPLE
All numbers between n=46 and 58=n+12 are not squarefree or relatively prime to 46, therefore a(46)=12.
PROG
(Haskell)
a071890 n = a071888 n - n -- Reinhard Zumkeller, Jun 10 2012
(PARI) a8(n)=if(n<2, return(2)); my(m=n+1); while(gcd(m++, n)==1 || !issquarefree(m), ); m; \\ A071888
a(n) = a8(n) - n; \\ Michel Marcus, Feb 06 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 10 2002
STATUS
approved