login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A276651 a(n) = numerator of Sum_{p|n} 0.d where p runs through the prime divisors of n. 6
1, 3, 1, 1, 1, 7, 1, 3, 7, 11, 1, 13, 9, 4, 1, 17, 1, 19, 7, 1, 31, 23, 1, 1, 33, 3, 9, 29, 1, 31, 1, 41, 37, 6, 1, 37, 39, 43, 7, 41, 6, 43, 31, 4, 43, 47, 1, 7, 7, 47, 33, 53, 1, 61, 9, 49, 49, 59, 1, 61, 51, 1, 1, 63, 61, 67, 37, 53, 7, 71, 1, 73, 57, 4, 39 (list; graph; refs; listen; history; text; internal format)
OFFSET
2,2
COMMENTS
Here 0.d means the decimal fraction obtained by writing d after the decimal point, e.g., 0.11 = 11/100.
The first few values of Sum_{p|n} 0.d are: 1/5, 3/10, 1/5, 1/2, 1/2, 7/10, 1/5, 3/10, 7/10, ...
See A276655 - numbers n such that Sum_{p|n} 0.d is an integer.
LINKS
FORMULA
a(n) = (Sum_{p|n} 0.d) * A276652(n) where p = prime divisors of n.
EXAMPLE
For n=12; Sum_{p|12} 0.d = 0.2 + 0.3 = 0.5 = 5/10 = 1/2; a(12) = 1.
MATHEMATICA
Numerator[Table[f = FactorInteger[i][[All, 1]];
Total[f*10^-IntegerLength[f]], {i, 2, 76}]] (* Robert Price, Sep 20 2019 *)
PROG
(Magma) [Numerator(&+[d/(10^(#Intseq(d))): d in PrimeDivisors(n)]): n in [2..1000]]
CROSSREFS
Sequence in context: A157964 A140670 A293682 * A185587 A068845 A324910
KEYWORD
nonn,base,frac
AUTHOR
Jaroslav Krizek, Sep 10 2016
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 05:39 EDT 2024. Contains 371235 sequences. (Running on oeis4.)