OFFSET
1,1
COMMENTS
If the largest digit L (say) is repeated, the criterion is that |L - (sum of all digits except for one copy of L)| is a cube.
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
EXAMPLE
The prime 2731 is a term, because 7-2-3-1 = 1 is a cube.
The prime 13 is not in the sequence, as 3-1 = 2, and 2 is not a cube.
The prime 313 is a term because |3 - (1+3)| = 1 is a cube.
MATHEMATICA
Select[Prime[Range[150]], IntegerQ[Surd[Abs[Max[IntegerDigits[#]]-Total[ Most[ Sort[IntegerDigits[#]]]]], 3]]&] (* Harvey P. Dale, Dec 31 2021 *)
PROG
(PARI) listA280993(k, {k0=5})={my(H=List(), y); forprime(z=prime(k0), prime(k), y=digits(z); if(ispower(abs(vecsum(y)-2*vecmax(y)), 3), 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,easy,base
AUTHOR
Osama Abuajamieh, Jan 14 2017
STATUS
approved