|
|
|
|
|
|
|
|
|
#22 by OEIS Server at Wed Aug 02 14:11:28 EDT 2023
|
|
| LINKS
|
Paolo Xausa, <a href="/A138751/b138751_1.txt">Table of n, a(n) for n = 1..10000</a>
|
|
|
|
|
|
|
#21 by N. J. A. Sloane at Wed Aug 02 14:11:27 EDT 2023
|
|
|
|
|
|
Discussion
|
| Wed Aug 02
| 14:11
| OEIS Server: Installed first b-file as b138751.txt.
|
|
|
|
|
|
|
#20 by Michel Marcus at Sat Jul 29 01:23:19 EDT 2023
|
|
|
|
|
|
|
|
#19 by Michel Marcus at Sat Jul 29 01:23:15 EDT 2023
|
|
|
|
|
|
|
|
#18 by Paolo Xausa at Fri Jul 28 03:35:01 EDT 2023
|
|
|
|
|
|
Discussion
|
| Fri Jul 28
| 03:58
| Michel Marcus: I am not too keen on 1st part of name
|
|
| 04:10
| Paolo Xausa: Maybe "a(n) = smallest prime greater than x, where x = prime(n)/2 if prime(n) == 2 (mod 3), 2*prime(n) otherwise"
Or just keep the second part?
|
| Sat Jul 29
| 01:23
| Michel Marcus: let's see what others say
|
|
|
|
|
|
|
#17 by Paolo Xausa at Fri Jul 28 03:25:33 EDT 2023
|
|
| LINKS
|
Paolo Xausa, <a href="/A138751/b138751_1.txt">Table of n, a(n) for n = 1..10000</a>
|
|
| MATHEMATICA
|
A138751[n_]:=With[{p=Prime[n]}, NextPrime[If[Mod[p, 3]==2, p/2, 2p]]]; Array[A138751, 100] (* Paolo Xausa, Jul 28 2023 *)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#16 by Andrey Zabolotskiy at Wed May 17 13:01:21 EDT 2023
|
|
|
|
|
|
|
|
#15 by Andrey Zabolotskiy at Wed May 17 13:01:09 EDT 2023
|
|
| LINKS
|
Georges Brougnard, <a href="httphttps://webwww.archiveecholalie.org/web/20160313060620/http://www.echolaliste.com/gbnums/gb0.jpg">Definition of GB-sequences</a>.
|
|
| STATUS
|
proposed
editing
|
|
|
|
|
|
|
#14 by Michel Marcus at Wed May 17 12:39:09 EDT 2023
|
|
|
|
|
|
|
|
#13 by Michel Marcus at Wed May 17 12:39:03 EDT 2023
|
|
| FORMULA
|
a(n)=) = A007918( (A138750( (A000040( (n )))))).
|
|
| EXAMPLE
|
a(1)=) = nextprime( (2/2 )=) = 2, a(2) = nextprime( (2*3 )=) = 7, a(3) =) = nextprime(5/2) = 7.
nextprime( 5/2 )=7, ...
|
|
| STATUS
|
proposed
editing
|
|
|
|
|
|
