Original entry on oeis.org
2, 7, 17, 37, 157, 317, 1277, 2557, 20477, 655357, 5242877, 671088637, 2684354557, 5368709117, 343597383677, 23058430092136939517, 23611832414348226068477, 48357032784585166988247037, 830767497365572420564879412675215357
Offset: 1
-
[ a: n in [0..150] | IsPrime(a) where a is 5*2^n-3 ];
-
Select[Table[5*2^n-3,{n,0,300}],PrimeQ] (* Vincenzo Librandi, Jul 26 2012 *)
A225582
Primes in the chain of repeated application of x->2*x+3, starting at x=11.
Original entry on oeis.org
11, 53, 109, 1789, 3581, 28669, 229373, 3670013, 58720253, 117440509, 60129542141, 264452523040700131966973, 34662321099990647697175478269, 2381976568446569244243622252022377480189, 4878288012178573812210938372141829079433213
Offset: 1
Numbers of the form 7*2^m-3:
A156127.
-
x:=11; a:=[n eq 1 select x else 2*Self(n-1)+3: n in [1..200]]; [a[i]: i in [1..#a] | IsPrime(a[i])];
-
[a: n in [0..150] | IsPrime(a) where a is 7*2^n-3];
-
Select[NestList[2 # + 3 &, 11, 30], PrimeQ] (* or *) Select[Table[7 2^n - 3, {n, 0, 150}], PrimeQ]
A225583
Primes in the chain of repeated application of x->2*x+3, starting at x=19.
Original entry on oeis.org
19, 41, 173, 349, 701, 11261, 45053, 180221, 184549373, 738197501, 5905580029, 188978561021, 6192449487634429, 49539595901075453, 99079191802150909, 25364273101350633469, 811656739243220271101, 3486039150627630854115933814781
Offset: 1
Numbers of the form 11*2^m-3:
A156198.
-
x:=19; a:=[n eq 1 select x else 2*Self(n-1)+3: n in [1..200]]; [a[i]: i in [1..#a] | IsPrime(a[i])];
-
[a: n in [0..150] | IsPrime(a) where a is 11*2^n-3];
-
Select[NestList[2 # + 3 &, 19, 30], PrimeQ] (* or *) Select[Table[11 2^n - 3, {n, 0, 150}], PrimeQ]
A225584
Primes in the chain of repeated application of x->2*x+3, starting at x=23.
Original entry on oeis.org
23, 101, 829, 6653, 13309, 6815741, 436207613, 13958643709, 27917287421, 468374361246531581, 3746994889972252669, 959230691832896684029, 16093220510709943573688614909
Offset: 1
Numbers of the form 13*2^m-3:
A156202.
-
x:=23; a:=[n eq 1 select x else 2*Self(n-1)+3: n in [1..200]]; [a[i]: i in [1..#a] | IsPrime(a[i])];
-
[a: n in [0..150] | IsPrime(a) where a is 13*2^n-3];
-
Select[NestList[2 # + 3 &, 23, 30], PrimeQ] (* or *) Select[Table[13 2^(n+1) - 3, {n, 0, 150}], PrimeQ]
Showing 1-4 of 4 results.
Comments