cp's OEIS Frontend

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.

A224965 Let p = prime(n). a(n) = number of primes q less than p, such that both p*q+p+q and p*q-p-q are primes.

This page as a plain text file.
%I A224965 #4 Apr 21 2013 16:03:36
%S A224965 0,0,2,3,1,2,2,2,1,2,1,1,3,2,1,1,1,3,2,2,1,3,1,0,4,0,1,2,5,0,2,2,1,2,
%T A224965 2,2,1,2,2,1,1,4,2,1,0,2,5,1,1,3,1,3,3,3,0,1,2,4,1,4,4,2,2,2,6,2,5,2,
%U A224965 3,3,2,4,5,3,2,1,3,1,3,3,3,2,2,3,2
%N A224965 Let p = prime(n). a(n) = number of primes q less than p, such that both p*q+p+q and p*q-p-q are primes.
%e A224965 For n=3, p=5, there are a(3)=2 solutions 2,3 since 5*2+5+2=17, 5*2-5-2=3 and 5*3+5+3=23, 5*3-5-3=7. Also for n=5, p=11, there is a(5)=1 solution in the form of 11*3+11+3=47, 11*3-11-3=19.
%t A224965 Table[p = Prime[n]; c = 0; i = 1; While[i < n, q1 = p*Prime[i]; q2 = p + Prime[i]; If[PrimeQ[q1 + q2] && PrimeQ[q1 - q2], c = c + 1]; i++]; c, {n, 85}]
%Y A224965 Cf. A224748, A224908, A224925, A224962.
%K A224965 nonn
%O A224965 1,3
%A A224965 _Jayanta Basu_, Apr 21 2013