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!)
A354512 Number of solutions m >= 2 to m - gpf(m) = n, gpf = A006530. 7
0, 1, 1, 0, 1, 2, 1, 0, 1, 1, 1, 0, 1, 2, 2, 0, 1, 0, 1, 1, 2, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 2, 1, 2, 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 0, 1, 0, 2, 1, 1, 0, 2, 1, 1, 1, 1, 0, 1, 2, 1, 0, 1, 1, 1, 1, 2, 1, 1, 0, 1, 1, 1, 1, 2, 2, 1, 0, 0, 1, 1, 0, 2, 1, 1, 1, 1, 0, 2 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,6
COMMENTS
Number of primes p such that gpf(n+p) = p (such p must be prime factors of n).
Number of distinct prime factors p of n such that n+p is p-smooth.
Clearly we have a(n) <= omega(n) for all n, omega = A001221. The differences are given by A354527.
Is this sequence unbounded? Note that 4 does not appear until a(1660577).
LINKS
EXAMPLE
a(78) = 2 since the prime factors of 78 are 2,3,13, and we have gpf(78+3) = 3 and gpf(78+13) = 13, so the solutions to m - gpf(m) = 78 are m = 78+3 = 81 or m = 78+13 = 91. Note that gpf(78+2) != 2.
a(12) = 0 since the prime factors of 12 are 2,3, and we have gpf(12+2) != 2 and gpf(12+3) != 3.
PROG
(PARI) gpf(n) = vecmax(factor(n)[, 1]);
a(n) = my(f=factor(n)[, 1]); sum(i=1, #f, gpf(n+f[i])==f[i])
CROSSREFS
Cf. A006530, A076563, A001221, A354516 (indices of first occurrence of each number), A354527.
Cf. A354514 (0 together with indices of positive terms), A354515 (indices of 0), A354516, A354525 (indices n for which a(n) reaches omega(n)), A354526 (indices n for which a(n) is smaller than omega(n)).
Sequence in context: A016353 A016398 A024359 * A088705 A065712 A153172
KEYWORD
nonn,easy
AUTHOR
Jianing Song, Aug 16 2022
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 April 19 16:52 EDT 2024. Contains 371794 sequences. (Running on oeis4.)