login
Numbers k such that the sum of the first k consecutive prime numbers is pandigital (includes all 10 digits at least once).
2

%I #16 May 19 2021 21:00:04

%S 14353,18572,22876,25212,26799,27803,28752,30510,32011,32423,32515,

%T 35137,37055,42840,43058,43167,43211,43288,43315,43830,46713,46766,

%U 48281,48319,48471,49118,51415,52047,52086,53022,53092,54940,54979,55065,55269,55769

%N Numbers k such that the sum of the first k consecutive prime numbers is pandigital (includes all 10 digits at least once).

%C A049442 is a subset of this sequence.

%H Shyam Sunder Gupta, <a href="/A228468/b228468.txt">Table of n, a(n) for n = 1..3350</a>

%e a(15)=43058 because the 43058th prime is 519947 and 2 + 3 + 5 + 7 + 11 + ... + 519947 = 10689537247, which is pandigital.

%t b = {}; a = 0; Do[a = a + Prime[i]; u = Union[IntegerDigits[a]]; If[Equal[u, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}], AppendTo[b, i]], {i, 1, 60000}]; b

%t Position[Accumulate[Prime[Range[56000]]],_?(Min[DigitCount[#]]> 0&)]// Flatten (* _Harvey P. Dale_, Apr 14 2020 *)

%Y Cf. A049442.

%K nonn,base,less

%O 1,1

%A _Shyam Sunder Gupta_, Aug 22 2013