|
|
|
|
|
|
|
|
|
#27 by Michael De Vlieger at Sat Aug 17 09:02:36 EDT 2024
|
|
|
|
|
|
|
|
#26 by Stefano Spezia at Fri Aug 16 10:05:02 EDT 2024
|
|
|
|
|
|
Discussion
|
| Sat Aug 17
| 02:37
| Hans Rudolf Widmer: Yes, sorry. The code in the "main section" is ok. I was looking at the code in section #24 with all the strikethroughs on my phone during a train ride.
|
|
|
|
|
|
|
#25 by Michel Marcus at Thu Aug 15 05:06:23 EDT 2024
|
|
|
|
|
|
Discussion
|
| Thu Aug 15
| 05:16
| Hans Rudolf Widmer: Something is wrong. Something is wrong. You probably made a copy/paste mistake?
|
|
| 08:53
| Hans Rudolf Widmer: You inserted a closing bracket ]
<= Prime[n]]
|
| Fri Aug 16
| 10:05
| Stefano Spezia: For me the code is ok
|
|
|
|
|
|
|
#24 by Michel Marcus at Thu Aug 15 05:06:05 EDT 2024
|
|
| MATHEMATICA
|
f@n_:=(Select[# + IntegerReverse[#] & /@ Prime[Range[n]], PrimeQ@# && # <= Prime[n]], ] &] // Union); f@3000 (* _Harvey P. Dale_, Jul 18 2018; corrected by _Hans Rudolf Widmer_, Aug 15 2024 *)
PrimeQ@# && # <= Prime[n] &] // Union); f@3000 (* Harvey P. Dale, Jul 18 2018; corrected by Hans Rudolf Widmer, Aug 15 2024 *)
|
|
|
|
|
Discussion
|
| Thu Aug 15
| 05:06
| Michel Marcus: ok like this ?
|
|
|
|
|
|
|
#23 by Michel Marcus at Thu Aug 15 05:05:45 EDT 2024
|
|
| MATHEMATICA
|
Select[#+IntegerReverse[#]&/@Prime[Range[3000]], PrimeQ]//Union (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 18 2018 *)
PrimeQ@# && # <= Prime[n] &] // Union); f@3000 (* _Harvey P. Dale_, Jul 18 2018; corrected by _Hans Rudolf Widmer_, Aug 15 2024 *)
(* corrected version of Harvey P.Dale's program *) (* Hans Rudolf Widmer, Aug 15 2024 *)
|
|
| STATUS
|
proposed
editing
|
|
|
|
|
|
|
#22 by Hans Rudolf Widmer at Thu Aug 15 05:02:43 EDT 2024
|
|
|
|
|
|
|
|
#21 by Hans Rudolf Widmer at Thu Aug 15 04:58:53 EDT 2024
|
|
| MATHEMATICA
|
f@n_:=(Select[# + IntegerReverse[#] & /@ Prime[Range[n]],
PrimeQ@# && # <= Prime[n] &] // Union); f@n
(* corrected version of Harvey P.Dale's program *) (* Hans Rudolf Widmer, Aug 15 2024 *)
|
|
|
|
|
Discussion
|
| Thu Aug 15
| 05:02
| Hans Rudolf Widmer: The existing program is not working correctly. Above the limit (3000) you cannot be sure that the list is complete, and it actually produces gaps.
|
|
|
|
|
|
|
#20 by Hans Rudolf Widmer at Thu Aug 15 04:46:15 EDT 2024
|
|
| MATHEMATICA
|
f@n_:=(Select[# + IntegerReverse[#] & /@ Prime[Range[n]],
PrimeQ@# && # <= Prime[n] &] // Union); f@n
(* corrected version of Harvey P.Dale's program *) (* Hans Rudolf Widmer, Aug 15 2024 *)
|
|
|
|
|
|
|
#19 by Hans Rudolf Widmer at Thu Aug 15 04:43:48 EDT 2024
|
|
| MATHEMATICA
|
f@n_:=(Select[# + IntegerReverse[#] & /@ Prime[Range[n]],
PrimeQ@# && # <= Prime[n] &] // Union); f@3000
(* corrected version of Harvey P.Dale's program *) (* Hans Rudolf Widmer, Aug 15 2024 *)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#18 by OEIS Server at Thu Aug 27 04:18:34 EDT 2020
|
|
| LINKS
|
Amiram Eldar, <a href="/A072385/b072385_1.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..253 from M. F. Hasler)
|
|
|
|
|
|
