OFFSET
1,9
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
EXAMPLE
For n=100, pi(100)=25, so a(100) = 100 mod (100-25) = 25.
MATHEMATICA
Table[Mod[n, n - PrimePi@ n], {n, 78}] (* or *)
Table[Mod[n, Count[Range@ n, k_ /; ! PrimeQ@ k]], {n, 78}] (* Michael De Vlieger, Jan 01 2017 *)
PROG
(PARI) { for (n = 1, 1000, a=n%(n - primepi(n)); write("b065864.txt", n, " ", a) ) } \\ Harry J. Smith, Nov 02 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 26 2001
STATUS
approved