|
Search: id:A048674
|
|
| |
| |
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Factorization: 1, 2, 3, 5^2, 2*13, 3*11, 3*31, 2*11*47, 5^2*197^2, 2*11*47*8269
|
|
EXAMPLE
|
E.g. 26=2*13=((3*17)+1)/2
|
|
MAPLE
|
factsuccbijection := n -> floor((succfactorization(n)+1)/2); # see also A045965
# Invariant Factorization Successors: invariant_factsuccessors := proc(upto_n) local b, i; b := [ ]; for i from 1 to upto_n do if(factsuccbijection(i) = i) then b := [ op(b), i ]; fi; od: RETURN(b); end;
|
|
CROSSREFS
|
Cf. A045965 and A048673.
Sequence in context: A003221 A013312 A013318 this_sequence A094998 A109586 A060371
Adjacent sequences: A048671 A048672 A048673 this_sequence A048675 A048676 A048677
|
|
KEYWORD
|
nonn,hard
|
|
AUTHOR
|
Antti Karttunen, Jul 14 1999
|
|
|
Search completed in 0.002 seconds
|
