|
Search: id:A066291
|
|
|
| A066291 |
|
Numbers n such that Mod[DivisorSigma[8k-4,n],n]=0 holds presumably for all k; that is (8k-4)-power-sums of divisors of n are divisible by n for all k. |
|
+0
1
|
| |
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
DivisorSigma[8k-4, n]/n] is integer for all k=1, 2, 3, .., 200, ...
|
|
EXAMPLE
|
Tested for each n with k<200.
|
|
MATHEMATICA
|
Table[Union[Table[ IntegerQ[DivisorSigma[8*k-4, Part[t, m]]/Part[t, m]], {k, 1, 200}]], {m, 1, Length[t]}]; where t denotes the table of sequence.
|
|
CROSSREFS
|
Cf. A066135, A066284, A066289-A066292.
Adjacent sequences: A066288 A066289 A066290 this_sequence A066292 A066293 A066294
Sequence in context: A135243 A033914 A107917 this_sequence A020929 A133720 A010950
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Dec 12 2001
|
|
|
Search completed in 0.002 seconds
|
