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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A080743 Array read by rows in which n-th row lists orders of elements of Symm(n) that are not orders of elements of Symm(n-1) (6th row is empty, written as 0 by convention). 4
 1, 2, 3, 4, 5, 6, 0, 7, 10, 12, 8, 15, 9, 14, 20, 21, 30, 11, 18, 24, 28, 35, 42, 60, 13, 22, 36, 40, 33, 45, 70, 84, 26, 44, 56, 105, 16, 39, 55, 63, 66, 90, 120, 140, 17, 52, 72, 210, 65, 77, 78, 110, 126, 132, 168, 180, 19, 34, 48, 88, 165, 420, 51, 91, 99, 130, 154, 156, 220 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS A051613 gives number of elements in n-th row. LINKS Alois P. Heinz, Rows n = 1..100, flattened J. Bamberg, G. Cairns and D. Kilminster, The crystallographic restriction, permutations and Goldbach's conjecture, Amer. Math. Monthly, 110 (March 2003), 202-209. FORMULA n-th row = set of m such that A008475(m) = n, or 0 if no such m exists. EXAMPLE 1; 2; 3; 4; 5, 6; 0; 7, 10, 12; 8, 15; ... MAPLE b:= proc(n) option remember; `if`(n<3, {n},       {n, seq(map(x-> ilcm(x, i), b(n-i))[], i=2..n-1)}        minus {seq(b(i)[], i=1..n-1)})     end: T:= proc(n) local l; l:= [b(n, n)[]];       `if`(nops(l)=0, 0, sort(l)[])     end: seq(T(n), n=1..20);  # Alois P. Heinz, Feb 15 2013 MATHEMATICA b[n_, i_] := b[n, i] = Module[{p}, p = If[i<1, 1, Prime[i]]; If[n == 0, 1, If[i<1 || n<0, 0, Max[Join[{b[n, i-1]}, Table[p^j*b[n-p^j, i-1], {j, 1, Log[p, n]}]]]]] ]; T[1] = {1}; T[6] = {0}; T[n_] := Reap[For[m = n, m <= b[n, PrimePi[n]], m++,  If[n == Total[Power @@@ FactorInteger[m]], Sow[m]]]][[2, 1]]; Table[T[n], {n, 1, 20}] // Flatten (* Jean-François Alcover, Feb 26 2015, after Alois P. Heinz *) CROSSREFS Cf. A008475, A051613, A080744, A051703. Sequence in context: A204453 A275610 A195830 * A265519 A129835 A004182 Adjacent sequences:  A080740 A080741 A080742 * A080744 A080745 A080746 KEYWORD nonn,tabf,look,easy AUTHOR N. J. A. Sloane, Mar 08 2003 EXTENSIONS More terms from Vladeta Jovovic, Mar 12 2003 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.

Last modified September 23 02:49 EDT 2020. Contains 337291 sequences. (Running on oeis4.)