A230776 Record values in A228098.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 14, 15, 18, 20, 22, 23, 25, 26, 27, 29, 31, 32, 33, 34, 35, 36, 39
Offset: 1
Programs
-
Mathematica
DeleteDuplicates[Table[PrimePi[Prime[n+1]^2/Prime[n]]-n,{n,100000}],GreaterEqual] (* The program generates the first 12 terms of the sequence. *) (* Harvey P. Dale, Jan 29 2023 *)
Extensions
a(13)-a(28) from Martin Ehrenstein, Jun 06 2021
Comments