|
%I #9 Oct 17 2015 16:26:29
%S 0,1,1,2,3,4,5,6,7,9,10,12,13,14,15,17,19,20,22,23,24,26,27,29,32,33,
%T 34,35,36,37,42,43,45,46,49,50,52,54,55,57,59,60,63,64,65,66,70,74,75,
%U 76,77,79,80,83,85,87,89,90,92,93,94,97,102,103,104,105,110,112,115,116
%N a(n) = floor(prime(n)/3).
%F a(n) = floor(A000040(n)/3). - _R. J. Mathar_, Sep 21 2008
%p A144769 := proc(n) floor(ithprime(n)/3); end; # _R. J. Mathar_, Sep 21 2008
%t Quotient[Prime[Range[5! ]],3]
%o (PARI) a(n)=prime(n)\3 \\ _Charles R Greathouse IV_, Oct 05 2011
%Y See A130290 for prime(n)/2 or A075518 for prime(n)/4.
%K nonn,easy
%O 1,4
%A _Vladimir Joseph Stephan Orlovsky_, Sep 20 2008
%E Edited by _R. J. Mathar_, Sep 21 2008
|
