OFFSET
1,1
MATHEMATICA
fQ[n_] := Block[ {id = IntegerDigits@ n}, pid = Plus @@ id; MemberQ[ Partition[id, IntegerLength@ pid, 1], IntegerDigits@ pid]]; Select[ Prime@ Range@ 802, fQ] (* Robert G. Wilson v, Aug 16 2011 *)
Select[Prime[Range[1000]], SequenceCount[IntegerDigits[#], IntegerDigits[ Total[ IntegerDigits[ #]]]]> 0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, Sep 30 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Nov 15 1999
STATUS
approved