The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A347342 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A347342

a(n) = prime(n) mod floor(prime(n) / n).
(history; published version)

#15 by Peter Luschny at Tue Sep 14 04:43:05 EDT 2021

STATUS

reviewed

approved

#14 by Michael De Vlieger at Fri Aug 27 18:17:18 EDT 2021

STATUS

proposed

reviewed

#13 by Simon Strandgaard at Fri Aug 27 17:12:58 EDT 2021

STATUS

editing

proposed

#12 by Simon Strandgaard at Fri Aug 27 17:11:30 EDT 2021

PROG

(PARI) a(n) = prime(n) % floor(prime(n) / \ n);

STATUS

proposed

editing

Discussion

Fri Aug 27

17:12

Simon Strandgaard: @Michel Marcus, thanks for the pari improvement. Much nicer now.

#11 by Michel Marcus at Fri Aug 27 15:30:05 EDT 2021

STATUS

editing

proposed

#10 by Michel Marcus at Fri Aug 27 15:29:17 EDT 2021

MATHEMATICA

A347342[n_] := Mod[Prime[n] , Floor[Prime[n]/n]]; Table[A347342[n], {n, 1, 86}] (* Robert P. P. McKone, Aug 27 2021 *)

STATUS

proposed

editing

Discussion

Fri Aug 27

15:30

Michel Marcus: pari , rather ? a(n) = prime(n) % (prime(n) \ n)

#9 by Robert P. P. McKone at Fri Aug 27 12:56:55 EDT 2021

STATUS

editing

proposed

#8 by Robert P. P. McKone at Fri Aug 27 12:56:46 EDT 2021

MATHEMATICA

A347342[n_] := Mod[Prime[n] , Floor[Prime[n]/n]]; Table[A347342[n], {n, 1, 86}](* _Robert P. P. McKone_, Aug 27 2021 *)

A347342[n], {n, 1, 86}](* Robert P. P. McKone, Aug 27 2021 *)

#7 by Robert P. P. McKone at Fri Aug 27 12:56:17 EDT 2021

MATHEMATICA

A347342[n_] := Mod[Prime[n] , Floor[Prime[n]/n]]; Table[

A347342[n], {n, 1, 86}](* Robert P. P. McKone, Aug 27 2021 *)

STATUS

proposed

editing

#6 by Simon Strandgaard at Fri Aug 27 12:01:18 EDT 2021

STATUS

editing

proposed