login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A291453 Numbers n such that A291356(n) > 0. 0
0, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 15, 16, 17, 18, 21, 24, 25, 26, 28, 31, 32, 34, 36, 38, 44, 50, 51, 61, 66, 68, 73, 79, 83, 86, 87, 95, 132, 138, 139, 144, 159, 162, 167, 177, 183, 188, 189, 191, 194, 213, 230, 242, 253, 255, 265, 273, 274, 277, 287, 300, 310, 311, 337, 338, 352 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Searching until n = 2500, we have found only 11 values of n with more than one solution to usigma(x) = prime(n)#: 8, 11, 13, 17, 24, 38, 86 have 2 solutions and 3, 5, 6, 7 have 3 solutions. Are these the only numbers with more than one solution?

LINKS

Table of n, a(n) for n=1..66.

EXAMPLE

For n = 6 there are 3 solutions: usigma(20018) = usigma(29504) = usigma(30029) = 30030 = A002110(6).

MATHEMATICA

primorial[n_] := Product[Prime[i], {i, n}]; a[k_] := Module[{n = primorial[k], m = 1}, s = {};

If[PrimePowerQ[n - 1], AppendTo[s, n - 1]];

While[2^m<n, If[Divisible[n, 2^m + 1], r = n/(2^m + 1) - 1;

If[PrimePowerQ[r], AppendTo[s, 2^m*r]]]; m++]; Length[s]];

seq=Map[a, Range[1000]]; Flatten[Position[seq, _?(#>0 &)]]

CROSSREFS

Cf. A291356.

Sequence in context: A325364 A133810 A176615 * A185660 A191839 A032959

Adjacent sequences:  A291450 A291451 A291452 * A291454 A291455 A291456

KEYWORD

nonn

AUTHOR

Amiram Eldar and Altug Alkan, Aug 24 2017

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 September 20 01:58 EDT 2019. Contains 327207 sequences. (Running on oeis4.)