|
|
A362461
|
|
Indices of 0's in A362460.
|
|
4
|
|
|
3, 4, 5, 9, 10, 11, 13, 15, 16, 18, 19, 22, 24, 25, 29, 30, 34, 37, 40, 42, 43, 48, 49, 52, 55, 57, 59, 64, 66, 70, 71, 72, 79, 80, 81, 82, 92, 93, 94, 96, 98, 99, 100, 102, 105, 107, 110, 113, 114, 115, 118, 119, 120, 121, 126, 132, 133, 134, 136, 138, 141, 143, 146, 147, 148, 149, 151, 154, 155, 157, 160, 164, 166
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
A000959[upto_]:=Module[{s=2, a=Range[1, upto, 2]}, While[s<Length[a]&&a[[s]]<=Length[a], a=Drop[a, {a[[s]], -1, a[[s++]]}]]; a];
A362461[upto_]:=Module[{d=A000959[upto]}, Table[If[First[d=Abs[Differences[d]]]==0, n, Nothing], {n, Length[d]-1}]];
|
|
PROG
|
(C) See Links section.
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|