OFFSET
0,5
PROG
(PARI) isA256163(m) = if(!(m % 2), 0, my(pow = 2); while(pow < m && !isprime(m - pow) && !isprime(m + pow) && !isprime(m*pow - 1) && !isprime(m*pow + 1), pow *= 2); pow > m);
list(len) = {my(pow = 10, c = 0); print1(0, ", "); for(k = 1, 10^len, if(isA256163(k), c++); if(k == pow-1, print1(c, ", "); pow *= 10)); } \\ Amiram Eldar, Jul 19 2025
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Arkadiusz Wesolowski, Mar 17 2015
EXTENSIONS
a(9)-a(11) from Amiram Eldar, Jul 19 2025
STATUS
approved
