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.

A225518 Number of ways to express 2n+1 as p + 8*q, with p and q primes.

This page as a plain text file.
%I A225518 #6 May 09 2013 18:43:54
%S A225518 0,0,0,0,0,0,0,0,0,1,1,1,0,2,2,1,1,2,1,1,1,2,2,3,0,1,3,1,2,3,2,3,1,2,
%T A225518 3,2,1,2,3,1,1,3,2,3,1,2,3,3,2,4,2,2,2,4,2,3,3,2,4,3,2,4,3,3,4,2,2,3,
%U A225518 2,2,4,3,2,5,3,2,4,5,3,4,2,4,5,4,2,4,3
%N A225518 Number of ways to express 2n+1 as p + 8*q, with p and q primes.
%C A225518 This is related to the conjecture given in A223174 and A223175.
%C A225518 For n > 8, a(12) = a(24) = 0 because A223174(12)= A223174(24)= 0.
%H A225518 Michel Lagneau, <a href="/A225518/b225518.txt">Table of n, a(n) for n = 0..10000</a>
%e A225518 a(14) = 2 because 29 = 5+8*3 = 13+8*2 with 2 decompositions.
%e A225518 a(23) = 3 because 47 = 7+8*5 = 23+8*3 = 31+8*2 with 3 decompositions.
%t A225518 a[n_] := (ways = 0; Do[p = 2k + 1; q = (n-k)/4; If[PrimeQ[p] && PrimeQ[q], ways++], {k, 1, n}]; ways); Table[a[n], {n, 0, 90}]
%Y A225518 Cf. A219254, A223174, A223175.
%K A225518 nonn
%O A225518 0,14
%A A225518 _Michel Lagneau_, May 09 2013