%N Primes where difference between largest digit and all other digits is a positive square.
%C If the largest digit L (say) is repeated, the criterion is that that L - (sum of all digits except for one copy of L) is a square.
%H Charles R Greathouse IV, <a href="/A280915/b280915.txt">Table of n, a(n) for n = 1..10000</a>
%e Prime 1153 is in a(n) since 5-3-1-1=0. Zero is square.
%e Prime 1163 is in a(n) since 6-3-1-1=1. One is square.
%e Prime 1171 is in a(n) since 7-1-1-1=4. Four is square.
%t Select[Prime@ Range@ 175, IntegerQ@ Sqrt@ Fold[#1 - #2 &, Max@ #, Rest@ #] &@ Reverse@ Sort@ IntegerDigits@ # &] (* _Michael De Vlieger_, Feb 02 2017 *)
%o (PARI) is(n)=my(d=digits(n)); issquare(2*vecmax(d)-vecsum(d)) && isprime(n) \\ _Charles R Greathouse IV_, Feb 05 2017
%Y This sequence is a parent sequence of A156753.
%A _Osama Abuajamieh_, Jan 10 2017