A218461 Floor( prime(prime(n))/ prime(n) ).

1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7

Offset

1,3

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Formula

a(n) = floor(A006450(n)/A000040(n)).

Example

[3/2]=1; [5/3]=1; [11/5]=2

Mathematica

Floor[Prime[#]/#]&/@Prime[Range[90]] (* Harvey P. Dale, Aug 12 2016 *)

Prog

(PARI) a(n)=prime(n=prime(n))\n \\ Charles R Greathouse IV, Oct 31 2012
(PARI) apply(p->prime(p)\p, primes(100)) \\ Charles R Greathouse IV, Oct 31 2012

Crossrefs

Sequence in context: A331245 A130239 A091092 * A186189 A083375 A088519

Adjacent sequences: A218458 A218459 A218460 * A218462 A218463 A218464

Keyword

nonn,easy

Author

Tyler Carrico, Oct 30 2012

Status

approved