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.

A133557 Numbers k for which the sum of squares of five consecutive primes starting with prime(k) is prime (A133559).

This page as a plain text file.
%I A133557 #15 Sep 04 2023 16:37:06
%S A133557 2,3,9,10,11,16,18,25,26,28,31,33,36,42,43,46,47,54,56,58,63,68,76,87,
%T A133557 91,93,99,101,105,106,114,127,131,145,153,159,183,186,196,201,206,229,
%U A133557 230,232,233,238,239,241,244,245,246,248,253,256,257,264,265,266,268
%N A133557 Numbers k for which the sum of squares of five consecutive primes starting with prime(k) is prime (A133559).
%C A133557 For sums of squares of two consecutive primes, only k=1 yields a prime.
%C A133557 For sums of squares of three consecutive primes A133529, it seems that only k=2 yields a prime (checked for all k < 1000000).
%C A133557 Sums of squares of four (and all even numbers of) consecutive primes are even numbers except at k=1.
%e A133557 a(1)=2 because prime(2)^2 + prime(3)^2 + prime(4)^2 + prime(5)^2 + prime(6)^2 = 3^2 + 5^2 + 7^2 + 11^2 + 13^2 = 373 is prime.
%t A133557 b = {}; a = 2; Do[k = Prime[n]^a + Prime[n + 1]^a + Prime[n + 2]^a + Prime[n + 3]^a + Prime[n + 4]^a; If[PrimeQ[k], AppendTo[b, n]], {n, 1, 100}]; b (* _Artur Jasinski_ *)
%Y A133557 Cf. A133538, A133559.
%K A133557 nonn
%O A133557 1,1
%A A133557 _Artur Jasinski_, Sep 16 2007
%E A133557 Name and example corrected by _Jonathan Sondow_, Nov 04 2015