OFFSET
1,1
LINKS
Jaroslav Krizek, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime@ Range@ PrimePi@ 5000, Mean@ IntegerDigits@ # == 5 &] (* Michael De Vlieger, Apr 22 2017 *)
PROG
(Magma) [n: n in [1..100000] | IsPrime(n) and &+Intseq(n) mod #Intseq(n) eq 0 and &+Intseq(n) / #Intseq(n) eq 5]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Apr 19 2017
STATUS
approved