A082814 Values of m associated with A082813.

12, 88, 207

Offset

1,1

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

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

Hugo Pfoertner, Search for further terms

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

Prog

(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

Crossrefs

Cf. A082813.

Sequence in context: A206765 A228500 A348415 * A178257 A057406 A125349

Adjacent sequences: A082811 A082812 A082813 * A082815 A082816 A082817

Keyword

nonn,bref,more,hard

Author

N. J. A. Sloane, May 24 2003

Extensions

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

Status

approved