[go: up one dir, main page]

login
A228473
Primes p such that sum of all primes less than or equal to p is pandigital (includes all 10 digits at least once).
1
155863, 207301, 260539, 289847, 309977, 322429, 334427, 356831, 376291, 381631, 382873, 416821, 441461, 517207, 519947, 521393, 521897, 522881, 523351, 530051, 568627, 569267, 588949, 589507, 591709, 600289, 631139, 639631, 640121, 652667, 653651, 678553, 678971
OFFSET
1,1
COMMENTS
A049443 is a subset of this sequence.
LINKS
EXAMPLE
a(15) = 519947 because 2 + 3 + 5 + 7 + 11 + ... + 519947 = 10689537247 which is pandigital.
MATHEMATICA
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
CROSSREFS
Sequence in context: A233816 A050520 A049443 * A156118 A171658 A347936
KEYWORD
nonn,base,less
AUTHOR
Shyam Sunder Gupta, Aug 22 2013
STATUS
approved