|
Search: id:A132635
|
|
|
| A132635 |
|
Number of either prime-like or {0,1]-like levels in each square n: a(n)=Sum[If[m == 0 || m == 1, 1, If[PrimeQ[m], 1, 0]], {m, 0, n^2 - 1}]. |
|
+0
1
|
|
| 0, 1, 4, 6, 8, 11, 13, 17, 20, 24, 27, 32, 36, 41, 46, 50, 56, 63, 68, 74, 80, 87, 94, 101, 107, 116, 124, 131, 139, 148, 156
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Number of p-adic cyclotomic type levels in A_n-1 or SU(n).
|
|
FORMULA
|
a(n)=Sum[If[m == 0 || m == 1, 1, If[PrimeQ[m], 1, 0]], {m, 0, n^2 - 1}].
|
|
EXAMPLE
|
SU(5) at n^2-1=24 is exactly inside SU(9) at n^2-1=80.
|
|
MATHEMATICA
|
Table[Sum[If[m == 0 || m == 1, 1, If[PrimeQ[m], 1, 0]], {m, 0, n^2 - 1}], {n, 0, 30}]
|
|
CROSSREFS
|
Sequence in context: A047290 A086377 A003662 this_sequence A134779 A075325 A026278
Adjacent sequences: A132632 A132633 A132634 this_sequence A132636 A132637 A132638
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Aug 26 2008
|
|
|
Search completed in 0.002 seconds
|
