OFFSET
1,1
EXAMPLE
307 and 461 are terms because 307_10 = 100110011_2, transformation of inner bits gives 100110011_2 -> 111001101_2 = 461_10.
PROG
(PARI)T(p)={pow2=2; v=binary(p); L=#v-1; forstep(k=L, 2, -1, if(v[k], p-=pow2, p+=pow2); pow2*=2); return(p)};
forprime(p=2, 659, if(isprime(T(p)), print1(p, ", ")))
\\ Washington Bomfim, Jan 18 2011
CROSSREFS
KEYWORD
base,nonn,easy
AUTHOR
Zak Seidov, Feb 28 2004
STATUS
approved