|
|
|
|
|
|
|
|
|
#17 by N. J. A. Sloane at Tue Nov 22 21:49:09 EST 2016
|
|
|
|
|
|
|
|
#16 by Michael De Vlieger at Mon Nov 21 09:56:37 EST 2016
|
|
|
|
|
|
|
|
#15 by Michael De Vlieger at Mon Nov 21 09:56:34 EST 2016
|
|
| MATHEMATICA
|
fTable[n_] := Times @@ MapIndexed[(Prime@ First@ #2)^#1 &, #] &@ If[Length@ # == 1 && #[[1, 1]] == 1, {0}, Reverse@ Sort@ #[[All, -1]]] &@ FactorInteger@ n; Table[k = 1; While[f@ k != #, k++] &@ f[2^n - 1]; k, {], {n, 3569}] (* Michael De Vlieger, Nov 21 2016 *)
|
|
| STATUS
|
proposed
editing
|
|
|
|
|
|
|
#14 by Michael De Vlieger at Mon Nov 21 08:34:31 EST 2016
|
|
|
|
|
|
|
|
#13 by Michael De Vlieger at Mon Nov 21 08:34:28 EST 2016
|
|
| MATHEMATICA
|
f[n_] := If[Length@ # == 1 && #[[1, 1]] == 1, {0}, Sort@ #[[All, -1]]] &@ FactorInteger@ n; Table[k = 1; While[f@ k != #, k++] &@ f[2^n - 1]; k, {n, 35}] (* Michael De Vlieger, Nov 21 2016 *)
|
|
| STATUS
|
proposed
editing
|
|
|
|
|
|
|
#12 by Antti Karttunen at Sat Nov 19 23:43:56 EST 2016
|
|
|
|
|
|
|
|
#11 by Antti Karttunen at Sat Nov 19 23:36:03 EST 2016
|
|
| NAME
|
Least number with samethe prime signature thatof 2^n - 1 has.
|
|
| STATUS
|
proposed
editing
|
|
|
|
|
|
|
#10 by Antti Karttunen at Sat Nov 19 19:51:17 EST 2016
|
|
|
|
|
|
|
|
#9 by Antti Karttunen at Sat Nov 19 19:37:09 EST 2016
|
|
| NAME
|
Least number with same prime signature asthat 2^n - 1 has.
|
|
|
|
|
Discussion
|
| Sat Nov 19
| 19:51
| Antti Karttunen: PLEASE, do not shorten any of these filtering-sequences (unless absolutely must!). I have on purpose included enough terms to fill up to about 360 characters (which will nicely show as four full lines when the entry is shown to the user), so that less false positives will be generated when an automatic matching program is run with this sequence.
|
|
|
|
|
|
|
#8 by Antti Karttunen at Sat Nov 19 15:47:48 EST 2016
|
|
|
|
|
|
|
