OFFSET
1,1
COMMENTS
The lower bound A075771(n) >= n^2/prime(n) ensures that a given number can't occur beyond a certain index in that sequence.
MATHEMATICA
mx = 6300; Take[ Complement[ Range@ mx, Array[Plus @@ IntegerDigits[#^2, Prime[#]] &, mx]], mx/90] (* Robert G. Wilson v, Nov 25 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Nov 25 2016
STATUS
approved