OFFSET
0,3
COMMENTS
The magic square that uses the decimals of 1/383 is fully magic. 19 has the same property (see A021023). For other such primes see A072359. - Michel Marcus, Sep 02 2015
LINKS
MATHEMATICA
x = RealDigits[N[1/383, 120]]; Table[0, {Abs@ Last@ x}]~Join~First@ x (* Michael De Vlieger, Sep 02 2015 *)
x = RealDigits[N[1/383, 120]]; Table[0, {Abs@ Last@ x}]~Join~First@ x (* Michael De Vlieger, Sep 02 2015 *)
PROG
(PARI) default(realprecision, 2000); 1/383.0 \\ Anders Hellström, Sep 02 2015
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
STATUS
approved