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!)
A330871 Numbers k such that k and k+1 are both phi-practical numbers (A260653). 3
1, 2, 3, 15, 255, 735, 2624, 3135, 4095, 4784, 5264, 5984, 7215, 7424, 7904, 9344, 10064, 10335, 10815, 11024, 11984, 12375, 12495, 13695, 16184, 16575, 22575, 22784, 22815, 26144, 26264, 27104, 30015, 30855, 30975, 32384, 33824, 34335, 34544, 38024, 38415, 39104 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
EXAMPLE
1 is a term since both 1 and 2 are phi-practical numbers.
MATHEMATICA
phiPracticalQ[n_] := If[n<1, False, If[n==1, True, (lst = Sort @ EulerPhi @ Divisors[n]; ok=True; Do[If[lst[[m]]>Sum[lst[[l]], {l, 1, m-1}]+1, (ok=False; Break[])], {m, 1, Length[lst]}]; ok)]]; Select[Range[40000], phiPracticalQ[#] && phiPracticalQ[#+1] &] (* after Frank M Jackson at A260653 *)
CROSSREFS
Sequence in context: A162107 A162108 A162100 * A250404 A203966 A167444
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 29 2020
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 29 09:44 EDT 2024. Contains 371268 sequences. (Running on oeis4.)