|
|
A159560
|
|
Minimal recursive sequence beginning with 3 such that A001221(a(n)) = A001221(n).
|
|
11
|
|
|
3, 4, 5, 7, 10, 11, 13, 16, 18, 19, 20, 23, 24, 26, 27, 29, 33, 37, 38, 39, 40, 41, 44, 47, 48, 49, 50, 53, 60, 61, 64, 65, 68, 69, 72, 73, 74, 75, 76, 79, 84, 89, 91, 92, 93, 97, 98, 101, 104, 106, 108, 109, 111, 112, 115, 116, 117, 121, 126, 127, 129, 133, 137, 141, 150
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
A001221 := proc(n) nops(numtheory[factorset](n)) ; end proc:
A159560 := proc(n) option remember; if n = 2 then 3; else for a from procname(n-1)+1 do if A001221(a) = A001221(n) then return a; end if; end do: end if; end proc:
|
|
MATHEMATICA
|
a[2] = 3; a[n_] := a[n] = For[an = a[n - 1] + 1, True, an++, If[PrimeNu[an] == PrimeNu[n], Return[an]]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Corrected (4 inserted, 8 removed) and extended beyond 53 by R. J. Mathar, Oct 30 2010
|
|
STATUS
|
approved
|
|
|
|