|
Search: id:A038502
|
|
| |
|
| 1, 2, 1, 4, 5, 2, 7, 8, 1, 10, 11, 4, 13, 14, 5, 16, 17, 2, 19, 20, 7, 22, 23, 8, 25, 26, 1, 28, 29, 10, 31, 32, 11, 34, 35, 4, 37, 38, 13, 40, 41, 14, 43, 44, 5, 46, 47, 16, 49, 50, 17, 52, 53, 2, 55, 56, 19, 58, 59, 20, 61, 62, 7, 64, 65, 22, 67, 68, 23, 70, 71, 8, 73, 74, 25, 76
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Multiplicative with a(p^e) = if p = 3, then 1, else p^e - Mitch Harris, Apr 19 2005.
|
|
FORMULA
|
Multiplicative with a(p^e) = if p = 3, then 1, else p^e
|
|
MATHEMATICA
|
f[n_] := Times @@ (First@#^Last@# & /@ Select[ FactorInteger@n, First@# != 3 &]); Array[f, 76] (* Robert G. Wilson v Jul 31 2006 *)
|
|
PROGRAM
|
(PARI) a(n)=if(n<1, 0, n/3^valuation(n, 3)) /* Michael Somos Nov 10 2005 */
|
|
CROSSREFS
|
Cf. A007949, A038500.
Cf. A000265, A065330.
Sequence in context: A078606 A065518 A072012 this_sequence A106610 A051176 A038719
Adjacent sequences: A038499 A038500 A038501 this_sequence A038503 A038504 A038505
|
|
KEYWORD
|
nonn,easy,mult
|
|
AUTHOR
|
njas
|
|
|
Search completed in 0.002 seconds
|
