%I #11 Feb 12 2019 00:46:18
%S 0,1,2,2,3,3,4,4,5,5,5,6,6,6,7,7,7,8,8,8,8,8,9,9,9,10,10,10,10,11,11,
%T 11,11,12,12,12,12,12,13,13,13,13,13,13,14,14,14,14,15,15,15,15,15,15,
%U 16,16,16,16,16,16,17,17,17,17,17,18,18,18,18,18,18,19,19,19,19,19,19,19
%N Number of positive squares <= prime(n) - 3.
%F a(n) = A000196(A086801(n)). - _R. J. Mathar_, May 09 2010
%p A000196 := proc(n) floor(sqrt(n)) ; end proc:
%p A086801 := proc(n) ithprime(n)-3 ; end proc:
%p A177357 := proc(n) A000196(A086801(n)) ; end proc: seq(A177357(n),n=2..90) ; # _R. J. Mathar_, May 09 2010
%t Floor[Sqrt[Prime[Range[2,80]]-3]] (* _Harvey P. Dale_, Dec 15 2018 *)
%Y Cf. A000006.
%K nonn
%O 2,3
%A _Giovanni Teofilatto_, May 07 2010
%E Edited by _N. J. A. Sloane_, May 08 2010
%E More terms from _R. J. Mathar_, May 09 2010
%E Reference redirected to a valid A-number by _R. J. Mathar_, May 09 2010
|