login
A046186
Earliest sequence of 17 consecutive primes such that sum of digits of each one is also a prime.
0
793234063, 793234067, 793234111, 793234139, 793234153, 793234171, 793234177, 793234193, 793234207, 793234243, 793234261, 793234289, 793234333, 793234357, 793234391, 793234427, 793234441
OFFSET
1,1
MATHEMATICA
Select[Partition[Prime[Range[40900000]], 17, 1], And@@PrimeQ[Total/@ IntegerDigits[ #]]&] (* Harvey P. Dale, Apr 11 2013 *)
CROSSREFS
Cf. A046704.
Sequence in context: A225389 A166121 A348079 * A166227 A104829 A198173
KEYWORD
nonn,base,fini,full
AUTHOR
STATUS
approved