OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(4)=41 is a term because sum of digits of three consecutive primes i.e. i.e. (41, 43, 47), whose sum of digits (i.e. 5, 7, 11)is a set of three distinct primes.
MATHEMATICA
tdpQ[{a_, b_, c_}]:=Module[{d=Total[IntegerDigits[a]], e=Total[ IntegerDigits[ b]], f=Total[IntegerDigits[c]]}, Length[Union[{d, e, f}]]==3&&AllTrue[ {d, e, f}, PrimeQ]]; Select[Partition[Prime[ Range[ 500]], 3, 1], tdpQ][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 12 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, May 18 2005
STATUS
approved