(Translated by https://www.hiragana.jp/)
The On-Line Encyclopedia of Integer Sequences (OEIS)
login

Revisions by Vincenzo Librandi

(See also Vincenzo Librandi's wiki page)

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
#18 by Vincenzo Librandi at Sat Apr 11 04:50:43 EDT 2020
STATUS

editing

proposed

#17 by Vincenzo Librandi at Sat Apr 11 04:50:35 EDT 2020
MATHEMATICA

a[n_]:=(n + Floor[1/2 + Sqrt[n]])^3; Array[a, 50] (* Vincenzo Librandi, Apr 11 2020 *)

PROG

(MAGMA) [(n+Floor(1/2+Sqrt(n)))^3: n in [1..60]]; // Vincenzo Librandi, Apr 11 2020

STATUS

approved

editing

Least number m > 0 such that 2^m == +-1 (mod 2n + 1).
(history; published version)
#216 by Vincenzo Librandi at Sat Apr 11 03:42:48 EDT 2020
STATUS

editing

proposed

#215 by Vincenzo Librandi at Sat Apr 11 03:42:36 EDT 2020
MATHEMATICA

Suborder[a_, n_] := If[n>1 && GCD[a, n]==1, Min[MultiplicativeOrder[a, n, {-1, 1}]], 0];

Join[{1}, Table[Suborder[2, 2n+1], {n, 0, 100}] ] (* T. D. Noe, Aug 02 2006 *)

EXTENSIONS

Mma revised by Vincenzo Librandi, Apr 11 2020

STATUS

approved

editing

Numbers m such that there are precisely 7 groups of order m.
(history; published version)
#30 by Vincenzo Librandi at Sat Apr 11 03:08:33 EDT 2020
STATUS

editing

proposed

Discussion
Sat Apr 11
03:16
Michel Marcus: which links are wrong ?
03:23
Vincenzo Librandi: Michel for Mma: 
375,605,903,1705,2255,2667,3081,3355,3905,4235,4431,4515,4805,5555,6123,6355,6375,6765,7077,7205,7865,7917,7959,8305,8405,8625,8841,9455,9723,9933,9955,10285,10505,10875,11005,11487,11495,11571,11605,11715,11935,12207,12505,13053,13251,13255,13335,13805,14133,14469,14555,14905,15351,15405,15455,15655,15785,15897,16665,17105,17545,17625,18543,18605,18879,19383,19875,20305,20307,20705,20769,21189,21333,21615,21655,22055,22071,22125,22165,22385,22533,22953,23155,23405,23485,23705,24753,25205,25355,26015,26049,26855,27005,27363,28055,28329,28435,28655,28985,29315,29337,29605,29755,30009,30615,30805,30849,30891,30955,31125,31405,31515,32065,32395,32547,32705,33055,33375,33501,33537,33635,33891,34689,34705,35255,35385,35695,35763,35855,36183,36543,37023,37105,37149,37355,38005,38335,38555,38885,38905,39155,39273,39585,39795,39955,40125,40593,40803,41305,41415,41855,42005,42357,42375,42441,42627,42845,43255,43555,43615,43665,44165,44457,44485,44605,45003,45087,45155,45339,45669,46055,46221,46365,46505,47649,47795,47859,48111,48531,48615,48711,48741,49405,49445,50105,50215,50435,50765,51005,51177,51305,51315,51375,51455,51753,51755,52377,52941,53277,53405,53605,53781,55055,55167,55205,55555,55587,55875,56155,56469,56705,57035,57351,57435,57605,57805,57837,57855,58135,58255,58355,58685,59073,59997,60005,61035,61341,62115,62155,62315,62465,62625,62727,63085,63305,63745,63755,64077,64255,64355,64405,64407,64735,64875,64955,65247,65255,65265,65289,65395,65945,66055,66155,66165,66185,66381,66385,66805,67125,67161,67353,67705,67805,67855,68365,69685,69699,70581,70665,70863,71005,71115,71455,71555,71995,72215,72345,73047,73315,73505,73535,73563,73875,74109,74195,74855,74905,74949,74991,75327,75873,75955,76065,76089,76105,76209,76255,76479,76555,76713,76755,76835,77637,77847,78519,78603,79131,79485,79805,80135,80283,80367,80465,80565,80755,80905,81015,81455,81685,82047,82205,82615,82655,82885,83105,83435,83855,84095,84205,84531,84651,85125,85555,85705,85805,85965,86305,86405,87087,87339,87375,87535,87549,87801,88055,88221,88355,88505,88881,89103,89105,89155,89349,89625,90145,90365,90867,90951,91029,91203,91295,91299,91405,91959,92715,92785,93155,94435,94505,94655,94855,94985,95361,95613,95755,96141,96205,96375,96455,96621,96635,96965,97041,97071,97251,97295,97805,97923,98615,98625,98905,99055,99267,99355,99605,99755,99897
03:57
Michel Marcus: please no long line like this in discussions
03:58
Michel Marcus: I can't hep you with Mma
03:58
Michel Marcus: which links are wrong ?
#29 by Vincenzo Librandi at Sat Apr 11 03:05:57 EDT 2020
MATHEMATICA

Select[Range[10^5], FiniteGroupCount[#]==7 &] (* Vincenzo Librandi, Apr 11 2020 *)

STATUS

approved

editing

Discussion
Sat Apr 11
03:08
Vincenzo Librandi: Michel and EICs check Data and Links are wrong.
a(n) = Fibonacci(prime(n)) - prime(Fibonacci(n)).
(history; published version)
#18 by Vincenzo Librandi at Fri Apr 10 02:34:33 EDT 2020
STATUS

editing

proposed

#17 by Vincenzo Librandi at Fri Apr 10 02:34:21 EDT 2020
PROG

(MAGMA) [Fibonacci(NthPrime(n)) - NthPrime(Fibonacci(n)): n in [1..30]]; // Vincenzo Librandi, Apr 10 2020

STATUS

approved

editing

Numbers m such that prime(m) + Fibonacci(m) is prime.
(history; published version)
#15 by Vincenzo Librandi at Fri Apr 10 02:27:11 EDT 2020
STATUS

editing

proposed

#14 by Vincenzo Librandi at Fri Apr 10 02:27:03 EDT 2020
DATA

1, 3, 12, 24, 42, 60, 132, 303, 312, 450, 564, 1236, 1419, 2952, 10098, 12060, 13848, 17229, 22356

EXTENSIONS

a(18) - a(19) from Vincenzo Librandi, Apr 10 2020

STATUS

approved

editing