|
|
A130790
|
|
Number of nodes in the Lucas-Pratt primality tree rooted at prime(n).
|
|
0
|
|
|
0, 1, 1, 2, 2, 2, 1, 2, 3, 3, 3, 2, 2, 4, 4, 3, 4, 3, 4, 4, 2, 4, 3, 3, 2, 2, 3, 4, 2, 3, 4, 4, 2, 5, 3, 3, 4, 2, 4, 5, 4, 3, 4, 2, 3, 4, 5, 4, 4, 4, 4, 4, 3, 2, 1, 5, 5, 3, 5, 4, 6, 3, 3, 5, 4, 5, 5, 4, 6, 5, 3, 5, 5, 5, 4, 5, 3, 4, 2, 3, 5, 5, 6, 2, 4, 4, 3, 4, 5, 6, 5, 5, 2, 4, 5, 3, 5, 4, 5, 3
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
The primality tree starts at an odd prime at the root node. The branches of each node are the odd primes that divide the value of (the node minus 1). The length of the longest branch is related to A126805. Following the branch with the largest label gives A083647.
|
|
LINKS
|
|
|
PROG
|
(PARI) LP(p) = my(f=factor(p-1)); if(p <= 2, 0, 1+vecsum(vector(#f~, k, LP(f[k, 1]))));
|
|
CROSSREFS
|
Cf. A037231 (primes which set a new record).
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|