A144923 Triangle read by rows: |A144912(b, b^2 + k)| if it is prime and 0 otherwise, with rows b in {2, 4, 6, ...} and columns k in {0, 1, 3, 4, 6, 7, ..., b}.
0, 0, 7, 5, 0, 5, 13, 11, 7, 5, 11, 19, 17, 13, 11, 7, 5, 0, 23, 19, 17, 13, 11, 7, 23, 31, 29, 0, 23, 19, 17, 13, 11, 29, 37, 0, 31, 29, 0, 23, 19, 17, 13, 11, 43, 41, 37, 0, 31, 29, 0, 23, 19, 17, 13, 41, 0, 47, 43, 41, 37, 0, 31, 29, 0, 23, 19, 17, 47
Offset: 2
Programs
-
PARI
T(b, k) = {my(d=digits(k, b)); if(isprime(d=abs(sum(i=1, #d, 2*d[i]-b+1))), d, 0); } row(n) = {my(v=[]); for(k=0, 2*n, if(k%3<2, v=concat(v, T(2*n, 4*n^2+k)))); v; } \\ Jinyuan Wang, Jul 21 2020
Comments