STATUS
proposed
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A006556
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
Number of different cycles of digits in the decimal expansions of 1/p, 2/p, ..., (p-1)/p where p = n-th prime different from 2 or 5.
(history; published version)
(history; published version)
STATUS
editing
proposed
MATHEMATICA
Map[(# - 1)/MultiplicativeOrder[10, #] &, {3}~Join~Prime@ Range[4, 101]] (* Michael De Vlieger, May 27 2020 *)
STATUS
approved
editing
STATUS
reviewed
approved
STATUS
proposed
reviewed
STATUS
editing
proposed
PROG
(PARI) f(p) = (p-1)/znorder(Mod(10, p));
lista(nn) = {my(vp=select(x->(10%x), primes(nn))); apply(f, vp); } \\ Michel Marcus, May 27 2020
STATUS
approved
editing
STATUS
editing
approved
LINKS
N. J. A. Sloane, Victor Meally, <a href="/A006556/a006556.pdf">TITLE FOR LINKLetter to N. J. A. Sloane</a>, no date.
STATUS
approved
editing
STATUS
editing
approved