|
|
|
|
#16 by OEIS Server at Mon May 13 02:14:59 EDT 2024
|
| LINKS
|
Amiram Eldar, <a href="/A101793/b101793_1.txt">Table of n, a(n) for n = 1..10000</a>
|
|
|
|
#15 by Joerg Arndt at Mon May 13 02:14:59 EDT 2024
|
|
|
Discussion
|
Mon May 13
| 02:14
| OEIS Server: Installed first b-file as b101793.txt.
|
|
|
|
#14 by Michel Marcus at Mon May 13 01:41:53 EDT 2024
|
|
|
|
#13 by Amiram Eldar at Mon May 13 01:03:58 EDT 2024
|
|
|
|
#12 by Amiram Eldar at Mon May 13 01:02:33 EDT 2024
|
| MATHEMATICA
|
16#-1&/@Select[Range[10000], AllTrue[{4#-1, 8#-1, 16#-1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _]&] (* _Harvey P. Dale_, Jun 13 2015 *)
|
|
|
|
#11 by Amiram Eldar at Mon May 13 00:52:36 EDT 2024
|
|
|
|
#10 by Amiram Eldar at Mon May 13 00:10:13 EDT 2024
|
| LINKS
|
Amiram Eldar, <a href="/A101793/b101793_1.txt">Table of n, a(n) for n = 1..10000</a>
|
|
|
|
#9 by Amiram Eldar at Mon May 13 00:09:59 EDT 2024
|
| EXAMPLE
|
4*3-1 = 11, 8*3-1 = 23 and 16*3-1 = 47 are primes, so the first term47 is a 47term.
|
|
|
|
#8 by Amiram Eldar at Mon May 13 00:08:01 EDT 2024
|
| NAME
|
16kPrimes of the form 16*k-1 such that 4k-1, 8k4*k-1 and 16k8*k-1 are also primes.
|
| FORMULA
|
a(n) = 16*A101790(n) - 1 = 4*A101791(n) + 3 = 2*A101792(n) + 1. - Amiram Eldar, May 13 2024
|
| EXAMPLE
|
4*3-1= = 11, 8*3-1= = 23 and 16*3-1= = 47 are primes, so the first entryterm is 47.
|
| PROG
|
(PARI) is(k) = if(k % 16 == 15, my(m = k\16 + 1); isprime(4*m-1) && isprime(8*m-1) && isprime(16*m-1), 0); \\ Amiram Eldar, May 13 2024
|
| STATUS
|
approved
editing
|
|
|
|
#7 by Michel Marcus at Fri Sep 10 10:49:53 EDT 2021
|
|
|
|