A082814 Values of m associated with A082813.

12, 88, 207

Offset: 1

Author

N. J. A. Sloane, May 24 2003

Keywords

• nonn
• bref
• more
• hard

Comments

No more terms below 822. - W. Edwin Clark, May 24 2003

No more terms below 4000. - Hugo Pfoertner, May 28 2003

No more terms < 25500. - Martin Renner, Jan 31 2013

Links

• Hugo Pfoertner, Search for further terms

Crossrefs

Cf. A082813.

Programs

Maple

A:=[]:
for n from 4 to 210 do
  if not(isprime(n)) then
    F:=ifactors(n)[2];
    if nops(F)>1 then
      s:=sum(F['i'][2]*F['i'][1]^n,'i'=1..nops(F));
      if isprime(s) then A:=[op(A),n]; print(n): fi;
    fi:
  fi:
od: # Martin Renner, Jan 31 2013

PARI

for(m=1,+oo,f=factor(m);ispseudoprime(sum(i=1,matsize(f)[1],f[i,1]^m*f[i,2])) && print1(m,", ")) \\ Jeppe Stig Nielsen, Oct 27 2018

Extensions

a(2) and a(3) from Joshua Zucker, May 24 2003