OFFSET
1,1
COMMENTS
Conjecture: Sequence is infinite.
EXAMPLE
567 is in the sequence because 567 = 3^4*7 and 3^7+3^7+3^7+3^7+7^7 = 832291,
a prime; and 568 = 2^3*71 and 2^8+2^8+2^8+71^8 = 645753531246529, a prime.
MATHEMATICA
bpQ[n_]:=Module[{pfn=Flatten[Table[#[[1]], {#[[2]]}]&/@FactorInteger[n]], ldn=Max[ IntegerDigits[n]], pfn1=Flatten[Table[#[[1]], {#[[2]]}]&/@ FactorInteger[n+1]], ldn1 =Max[IntegerDigits[n+1]]}, And@@PrimeQ[{Total[ pfn^ldn], Total[pfn1^ldn1]}]]; Select[Range[70000], bpQ] (* Harvey P. Dale, Nov 14 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jun 24 2005
STATUS
approved