[go: up one dir, main page]

login
A152078
Numbers a(n) for which A000695(a(n)) = A077718(n).
5
3, 5, 17, 23, 29, 43, 47, 53, 55, 61, 77, 83, 87, 91, 107, 115, 117, 121, 139, 149, 151, 171, 173, 179, 181, 185, 191, 203, 213, 229, 233, 239, 253, 257, 263, 269, 277, 299, 307, 327, 329, 353, 369, 379, 383, 389, 405, 409, 415, 425, 439, 443, 449, 471, 475, 477
OFFSET
1,1
EXAMPLE
If n=1, then a(1)=3, A000695(3)=5=A077718(1).
MATHEMATICA
f[n_] := FromDigits[IntegerDigits[n, 2], 4]; Select[Range[500], PrimeQ[f[#]] &] (* Amiram Eldar, Aug 31 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Nov 23 2008
EXTENSIONS
More terms from Amiram Eldar, Aug 31 2019
STATUS
approved