This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A238277 #14 Apr 06 2014 22:29:33 %S A238277 1,2,2,2,2,2,2,3,1,3,2,4,1,5,3,3,10,11,8,7,10,6,13,11,13,8,12,10,8,7, %T A238277 7,6,4,5,5,6,3,4,7,3,7,7,8,7,7,9,8,12,8,5,12,11,14,11,14,11,8,11,9,9, %U A238277 13,12,5,14,15,12,15,12,15,14,15,16,13,10,18,20,12,7,17,13 %N A238277 a(n) = |{0 <= k < n: the number of primes in the interval (k*n, (k+1)*n] is a square}|. %C A238277 Conjecture: a(n) > 0 for all n > 0. %C A238277 We have verified this for n up to 10^5. %C A238277 See also A238278 and A238281 for related conjectures. %H A238277 Zhi-Wei Sun, <a href="/A238277/b238277.txt">Table of n, a(n) for n = 1..3000</a> %H A238277 Z.-W. Sun, <a href="http://arxiv.org/abs/1402.6641">Problems on combinatorial properties of primes</a>, arXiv:1402.6641, 2014 %e A238277 a(9) = 1 since the interval (0, 9] contains exactly 2^2 = 4 primes. %e A238277 a(13) = 1 since the interval (9*13, 10*13] contains exactly 1^2 = 1 prime. %t A238277 SQ[n_]:=IntegerQ[Sqrt[n]] %t A238277 d[k_,n_]:=PrimePi[(k+1)*n]-PrimePi[k*n] %t A238277 a[n_]:=Sum[If[SQ[d[k,n]],1,0],{k,0,n-1}] %t A238277 Table[a[n],{n,1,80}] %Y A238277 Cf. A000040, A000290, A237598, A237706, A238278, A238281. %K A238277 nonn %O A238277 1,2 %A A238277 _Zhi-Wei Sun_, Feb 22 2014