login
A179650
a(n) = (n-th prime) mod (n-th nonprime).
1
0, 3, 5, 7, 2, 3, 5, 5, 8, 13, 13, 17, 20, 21, 23, 3, 7, 7, 11, 11, 9, 13, 15, 19, 25, 25, 25, 27, 25, 25, 37, 39, 41, 41, 49, 49, 1, 1, 2, 5, 8, 7, 11, 7, 8, 7, 16, 25, 23, 22, 23, 23, 19, 26, 29, 32, 35, 31, 34, 35, 31, 38, 49, 50, 49, 47, 58, 61, 68, 67, 68, 71, 73, 76, 79, 77, 77
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
Sequence in context: A212120 A128059 A084763 * A131214 A271833 A357043
KEYWORD
nonn
AUTHOR
Jason G. Wurtzel, Jul 22 2010
EXTENSIONS
More terms from R. J. Mathar, Robert G. Wilson v and Carl R. White, Jul 23 2010
STATUS
approved