login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A175729 Numbers n such that the sum of the prime factors with multiplicity of n divides n-1. 1
6, 21, 45, 52, 225, 301, 344, 441, 697, 1225, 1333, 1540, 1625, 1680, 1695, 1909, 2025, 2041, 2145, 2295, 2466, 2601, 2926, 3051, 3104, 3146, 3400, 3510, 3738, 3888, 3901, 4030, 4186, 4251, 4375, 4641, 4675, 4693, 4930, 5005, 5085, 5244, 5425, 6025, 6105 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

FORMULA

{n : A001414(n) | (n-1)}. [R. J. Mathar, Aug 24 2010]

EXAMPLE

For example, 21=7x3, 7+3=10 which divides 21-1=20.

MAPLE

A001414 := proc(n) ifactors(n)[2] ; add( op(1, p)*op(2, p), p=%) ; end proc:

isA175729 := proc(n) if (n-1) mod A001414(n) = 0 then true; else false; end if; end proc:

for n from 2 to 10000 do if isA175729(n) then printf("%d, ", n) ; end if; end do:

# R. J. Mathar, Aug 24 2010

MATHEMATICA

fQ[n_] := Mod[n - 1, Plus @@ Flatten[ Table[ #1, {#2}] & @@@ FactorInteger@ n]] == 0; Select[ Range@ 6174, fQ] (* Robert G. Wilson v, Aug 25 2010 *)

PROG

(MAGMA) [k:k in [2..6200]| IsIntegral((k-1)/( &+[m[1]*m[2]: m in Factorization(k)]))]; // Marius A. Burtea, Sep 16 2019

CROSSREFS

Disjoint from A130871 and A046346.

Cf. A001414.

Contains A164643.

Sequence in context: A272684 A180857 A119868 * A081266 A087863 A212656

Adjacent sequences:  A175726 A175727 A175728 * A175730 A175731 A175732

KEYWORD

easy,nonn

AUTHOR

K. T. Lee (7x3(AT)21cn.com), Aug 23 2010

EXTENSIONS

Extended by R. J. Mathar and Robert G. Wilson v, Aug 24 2010

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 19 16:16 EST 2021. Contains 340270 sequences. (Running on oeis4.)