A345946 Prime powers k that have such a proper divisor d for which A002034(d) = A002034(k).

8, 64, 81, 128, 1024, 6561, 8192, 15625, 16384, 32768, 262144, 531441, 1594323, 2097152, 4194304, 5764801, 33554432, 129140163, 244140625, 268435456, 536870912, 1073741824, 2147483648, 10460353203, 17179869184, 137438953472, 274877906944, 847288609443, 2199023255552

Offset

1,1

Comments

Numbers k such that A345950(k) = 0 (or equivalently, A345935(k) > 1), and A010055(k) = 1.

Links

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

Index entries for sequences related to factorial numbers

Example

8 = 2^3 is present because A002034(8) = 4 = A002034(4).

Prog

(PARI)
A002034(n) = if(1==n, n, my(s=factor(n)[, 1], k=s[#s], f=Mod(k!, n)); while(f, f*=k++); (k)); \\ After code in A002034.
A345950(n) = { my(x=A002034(n)); fordiv(n, d, if(A002034(d)==x, return(d==n))); };
isA345946(n) = (!isprime(n) && isprimepower(n) && !A345950(n));

Crossrefs

Cf. A002034, A010055, A345935, A345950.

Intersection of A000961 and A345945.

Sequence in context: A037413 A107626 A136956 * A161146 A208380 A160428

Adjacent sequences: A345943 A345944 A345945 * A345947 A345948 A345949

Keyword

nonn

Author

Antti Karttunen, Jul 04 2021

Extensions

More terms from Jinyuan Wang, Jul 07 2021

Status

approved