A147545 Primes of the form p*2^k+1 with k>0 and p=1 or p in this sequence.
3, 5, 7, 11, 13, 17, 23, 29, 41, 47, 53, 59, 83, 89, 97, 107, 113, 137, 167, 179, 193, 227, 233, 257, 353, 359, 389, 449, 467, 641, 719, 769, 773, 857, 929, 1097, 1283, 1409, 1433, 1439, 1553, 1697, 1889, 2657, 2819, 2879, 3089, 3329, 3593, 3617, 3779, 5639
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n=1..2000
- T. D. Noe, Primes in classes of the iterated totient function, J. Integer Sequences, 11 (2008), Article 08.1.2.
Crossrefs
Programs
-
Mathematica
nn=2^13; t={1}; i=1; While[q=t[[i]]; k=1; While[p=1+q*2^k; p
-
PARI
A000265(n) = (n>>valuation(n,2)); isA147454(n) = ((n>2)&&isprime(n)&&((1==(n=A000265(n-1)))||isA147454(n))); \\ Antti Karttunen, Apr 19 2020
Comments