? [a,b,c]=primes(3);while(c<10^5,[a,b,c]=[b,c,nextprime(c+1)];if(issquare(vecsum
([a,b,c]))==1,print([a,b,c])))
[13, 17, 19]
[37, 41, 43]
[277, 281, 283]
[313, 317, 331]
[613, 617, 619]
[7591, 7603, 7607]
[8209, 8219, 8221]
[12157, 12161, 12163]
[14557, 14561, 14563]
[15679, 15683, 15727]
[16267, 16273, 16301]
[23053, 23057, 23059]
[32233, 32237, 32251]
[42953, 42961, 42967]
[44887, 44893, 44909]
[55213, 55217, 55219]
[81013, 81017, 81019]
[94687, 94693, 94709]
?