login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A064279 Number of ordered pairs a,b of elements in the cyclic group C_n such that the subgroup generated by the pair a,b is a proper subgroup of C_n. 2
0, 1, 1, 4, 1, 12, 1, 16, 9, 28, 1, 48, 1, 52, 33, 64, 1, 108, 1, 112, 57, 124, 1, 192, 25, 172, 81, 208, 1, 324, 1, 256, 129, 292, 73, 432, 1, 364, 177, 448, 1, 612, 1, 496, 297, 532, 1, 768, 49, 700, 297, 688, 1, 972, 145, 832, 369, 844, 1, 1296, 1, 964, 513, 1024 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,4

COMMENTS

For a prime p: a(p) = 1.

LINKS

Table of n, a(n) for n=1..64.

FORMULA

a(n) = n^2 - A007434(n) = n^2 - J_2(n)

MATHEMATICA

Table[a=GroupElements[CyclicGroup[n]]; n^2-Count[Flatten[Table[Table[GroupOrder[PermutationGroup[{a[[i]], a[[j]]}]], {i, 1, n}], {j, 1, n}]], n], {n, 1, 30}]  (* Geoffrey Critzer, Apr 14 2013 *)

PROG

(PARI)

A007434(n) = if(n<1, 0, sumdiv(n, d, d^2*moebius(n/d)));

a(n) = n^2 - A007434(n);  /* Joerg Arndt, Apr 14 2013 */

CROSSREFS

A007434, A051953.

Sequence in context: A225770 A019304 A072869 * A078710 A175763 A080303

Adjacent sequences:  A064276 A064277 A064278 * A064280 A064281 A064282

KEYWORD

nonn

AUTHOR

Dan Fux (dan.fux(AT)OpenGaia.com or danfux(AT)OpenGaia.com), Sep 24 2001

EXTENSIONS

More terms from Vladeta Jovovic, Sep 25 2001

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 26 00:08 EST 2020. Contains 332270 sequences. (Running on oeis4.)