%I #15 Aug 28 2013 12:27:59
%S 155863,207301,260539,289847,309977,322429,334427,356831,376291,
%T 381631,382873,416821,441461,517207,519947,521393,521897,522881,
%U 523351,530051,568627,569267,588949,589507,591709,600289,631139,639631,640121,652667,653651,678553,678971
%N Primes p such that sum of all primes less than or equal to p is pandigital (includes all 10 digits at least once).
%C A049443 is a subset of this sequence.
%H Shyam Sunder Gupta, <a href="/A228473/b228473.txt">Table of n, a(n) for n = 1..3350</a>
%e a(15) = 519947 because 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, Prime[i]]], {i, 1, 60000}]; b
%Y Cf. A049443, A228468.
%K nonn,base,less
%O 1,1
%A _Shyam Sunder Gupta_, Aug 22 2013