|
Search: id:A112479
|
|
|
| A112479 |
|
a(n) = 1 + sum{p=primes<n, p does not divide n} a(p). |
|
+0
1
|
|
| 1, 1, 2, 3, 4, 5, 8, 15, 14, 11, 16, 29, 32, 55, 58, 63, 64, 125, 128, 251, 246, 239, 256, 509, 508, 479, 510, 503, 512, 1017, 1024, 2047, 2030, 1983, 2036, 2045, 2048, 3967, 4062, 4091, 4096, 8181, 8192, 16367, 16378, 16127, 16384, 32765, 32760, 32763
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
EXAMPLE
|
a(9) = 1 + a(2) + a(5) + a(7), since 2, 5 and 7 are the primes < 9 and coprime to 9. So a(9) = 1 + 1 + 4 + 8
= 14.
|
|
MATHEMATICA
|
f[l_] := Block[{n}, n = Length[l] + 1; Return[Append[l, 1 + Plus @@ l[[Select[Range[n - 1], PrimeQ[ # ] && Mod[n, # ] > 0 &]]]]]; ]; Nest[f, {1}, 50] (*Chandler*)
|
|
CROSSREFS
|
Sequence in context: A140294 A108014 A075721 this_sequence A081711 A055638 A057657
Adjacent sequences: A112476 A112477 A112478 this_sequence A112480 A112481 A112482
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet Dec 13 2005
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Dec 26 2005
|
|
|
Search completed in 0.002 seconds
|
