aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Emirp-primes/J/emirp-primes-1.j Normal file
View file

@ -0,0 +1 @@
emirp =: (] #~ ~: *. 1 p: ]) |.&.:":"0 NB. Input is array of primes

14
Task/Emirp-primes/J/emirp-primes-2.j Normal file
View file

@ -0,0 +1,14 @@
/:~ emirp p: 2+i.75
13 17 31 37 71 73 79 97 113 311 701 733 743 751 761 941 953 971 983 991
(#~ 7700&< * 8000&>) /:~ emirp i.&.(_1&p:) 9999
7717 7757 7817 7841 7867 7879 7901 7927 7949 7951 7963
# emirp p: i.74791 NB. 10,000th emirp is 74,790th prime
10000
p: 74790
948349
NB. alternative approach (first emirp value would be at index 0):
9999 { /:~ emirp p:i.1e5
943849