Find adjacents primes which difference is square integer

From Rosetta Code