OFFSET
1,2
COMMENTS
In the first 100000 terms, the integers {4, 36, 40, 54} are missing. - Robert G. Wilson v, Jul 23 2010
EXAMPLE
For n=4, 7 mod 8 = 7.
MAPLE
A179650 := proc(n) ithprime(n) mod A018252(n) ; end proc: seq(A179650(n), n=1..100) ; # R. J. Mathar, Jul 23 2010
MATHEMATICA
NonPrime[n_Integer] := FixedPoint[n + PrimePi@# &, n + PrimePi@n]; f[n_] := Mod[Prime@n, NonPrime@n]; Array[f, 70] (* Robert G. Wilson v, Jul 23 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason G. Wurtzel, Jul 22 2010
EXTENSIONS
STATUS
approved