OFFSET
1,1
EXAMPLE
MATHEMATICA
Select[Prime@ Range[10^3], Abs[Max@ # - Total@ Rest@ #] == 8 &@ Reverse@ Sort@ IntegerDigits@ # &] (* Michael De Vlieger, Feb 02 2017 *)
PROG
(PARI) listA281170(k, {k0=8})={my(H=List(), y); forprime(z=prime(k0), prime(k), y=digits(z); if(abs(vecsum(y)-2*vecmax(y))==8, listput(H, z))); return(vector(#H, i, H[i]))} \\ Looks for those belonging terms between prime(k0) and prime(k). - R. J. Cano, Feb 06 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Osama Abuajamieh, Jan 16 2017
STATUS
approved