|
|
A212409
|
|
Numbers m such that m, m' and m'' are in arithmetic progression, where m' and m'' are the first and second arithmetic derivatives of m.
|
|
1
|
|
|
2, 4, 8, 27, 54, 156, 380, 476, 782, 861, 1053, 1976, 2542, 2565, 3125, 3213, 3368, 6250, 8732, 13338, 13724, 22734, 42716, 46136, 51640, 56156, 56444, 58941, 64796, 67196, 92637, 115198, 121875, 251516, 261598, 288333, 296875, 311418, 348570, 371875, 379053
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A051674 is a subsequence of this sequence.
If we consider also the third derivative, the numbers for which m''' - m'' = m'' - m' = m' - m are 4, 27, 380, 2565, 3125, 296875, 696764, 823543, ...
|
|
LINKS
|
|
|
EXAMPLE
|
For m=8732, we have m'=9116, m''=9500, and 8732 - 9116 = 9116 - 9500 = -384, so 8732 is a term.
For m=115198, we have m'=58559, m''=1920, and 115198 - 58559 = 58559 - 1920 = 56639, so 115198 is a term.
|
|
MAPLE
|
with(numtheory);
local a, b, i, p, pfs;
for i from 1 to n do
pfs:=ifactors(i)[2]; a:=i*add(op(2, p)/op(1, p), p=pfs) ;
pfs:=ifactors(a)[2]; b:=a*add(op(2, p)/op(1, p), p=pfs) ;
if b-a=a-i then print(i); fi;
od;
end:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|