|
|
A174456
|
|
Numbers k such that d(k) = d(k+1) = 12.
|
|
3
|
|
|
735, 819, 1035, 1196, 1274, 1275, 1449, 1665, 1924, 1925, 1952, 1988, 2324, 2331, 2540, 2655, 3068, 3195, 3267, 3324, 3339, 3549, 3555, 3626, 3717, 4164, 4220, 4235, 4556, 4563, 4598, 4635, 4675, 4796, 5024, 5084, 5324, 5525, 5588, 5634, 5660, 6003
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
Select[Range[10^7], DivisorSigma[0, {#, #+1}]=={12, 12}&]
Transpose[SequencePosition[DivisorSigma[0, Range[6500]], {12, 12}]][[1]] (* The program uses the SequencePosition function from Mathematica version 10 *) (* Harvey P. Dale, Jul 16 2016 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|