

A146757


Number of primes p < 10^n such that s  p is prime, where s is the next square greater than p.


3



2, 15, 68, 363, 2084, 13567, 95164, 705036, 5444255, 43211106, 351904307, 2921904565
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

The number of primes p in the range 2 <= p <= 10^n for which The distance to the next larger square (A068527(p)) is also a prime.  R. J. Mathar, Sep 26 2011


LINKS



EXAMPLE

A(2) = 15 because at 10^2 there are 15 primes that, subtracted from the next higher value square, produce prime differences: {2, 7, 11, 13, 23, 29, 31, 47, 53, 59, 61, 79, 83, 89, 97}.


MATHEMATICA

Table[Length[Select[Prime[Range[PrimePi[10^n]]], PrimeQ[Ceiling[Sqrt[#]]^2  #] &]], {n, 6}] (* T. D. Noe, Mar 31 2013 *)


PROG

(UBASIC) 10 'sq less pr are prime 20 N=1:O=1:C=1 30 A=3:S=sqrt(N):if N>10^3 then print N, C1:stop 40 B=N\A 50 if B*A=N then 100 60 A=A+2 70 if A<=S then 40 80 R=O^2:Q=RN 90 if N<R and N=prmdiv(N) and Q=prmdiv(Q) then if Q>1 print R; N; Q; C:N=N+2:C=C+1:goto 30 100 N=N+2:if N<R then 30:else O=O+1:goto 80


CROSSREFS



KEYWORD

more,nonn


AUTHOR



EXTENSIONS



STATUS

approved



