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.

A227933 Smallest sets of 6 consecutive primes with equal digital sum. The initial prime is listed.

This page as a plain text file.
%I A227933 #8 Oct 06 2013 15:26:15
%S A227933 354963229,448024483,467739719,475313609,525523709,771943583,
%T A227933 790277219,881160173,901572019,925569683,1051470419,1085896727,
%U A227933 1110999817,1285560163,1331768783,1455016319,1472310383,1519074619,1628600381,1815368519,1914032047,1990306673
%N A227933 Smallest sets of 6 consecutive primes with equal digital sum. The initial prime is listed.
%H A227933 Shyam Sunder Gupta, <a href="/A227933/b227933.txt">Table of n, a(n) for n = 1..46</a>
%e A227933 354963229 is in the sequence because 354963229, 354963283, 354963319, 354963337, 354963373 and 354963391 are consecutive primes and the sum of the digits of each = 43
%t A227933 a = {}; m = 1; s = 1; Do[If[(y = Apply[Plus, IntegerDigits[x = Prime[n]]]) == s , m = m + 1; If[m == 6, AppendTo[a, Prime[n - 5]]], m = 1]; s = y, {n, 2, 200000000}];a
%Y A227933 Cf. A066540, A209396, A210629, A071613, A227931.
%K A227933 nonn,base
%O A227933 1,1
%A A227933 _Shyam Sunder Gupta_, Oct 06 2013