A347391 Numbers k such that sigma(k) is either their sibling in Doudna tree (A005940), or one of the sibling's descendants.
3, 4, 5, 15, 20, 189, 945, 2125, 6375, 9261, 46305, 401625, 19679625
Offset: 1
Examples
Sigma(3) = 4 is located as the sibling of 3 in the Doudna-tree (see the illustration in A005940), thus 3 is included in this sequence. Sigma(4) = 7 is located as a grandchild of 3 (which is the sibling of 4) in the Doudna-tree, thus 4 is included in this sequence. Sigma(5) = 6 is located as the sibling of 5 in the Doudna-tree, thus 5 is included in this sequence. 189 (= 3^3 * 7) is a term, as sigma(189) = 320, and 320 occurs as a descendant of 80 (which is the right sibling of 189) in the Doudna tree, as illustrated below: . 40 / \ A003961 / \ *2 / \ 189 80 / \ / \ etc etc etc 160 / \ etc 320 / \ etc. etc. . 945 (= 3^3 * 5 * 7) is a term, as sigma(945) = 1920, and 1920 occurs as a descendant of 240, which is the right sibling of 945 in the Doudna tree, as illustrated below: 120 / \ A003961 / \ *2 / \ 945 240 / \ / \ etc etc etc 480 / \ etc 960 / \ etc. 1920 / \ etc. etc.
Links
Crossrefs
Programs
-
PARI
isA347391(n) = (1==A347381(n));
-
PARI
A064989(n) = {my(f); f = factor(n); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f)}; A252463(n) = if(!(n%2),n/2,A064989(n)); isA347391(n) = if(1==n,0,my(m=A252463(n), s=sigma(n)); while(s>m, if(s==n, return(0)); s = A252463(s)); (s==m));
Comments