A097641 Numbers n such that n=d_1^pi(d_1)+d_2^pi(d_2)+...+d_k^pi(d_k) where d_1 d_2 ... d_k is the decimal expansion of n.
1, 2, 135, 2537
Offset: 1
Examples
2537 is in the sequence because 2537 = 2^pi(2)+5^pi(5)+3^pi(3)+7^pi(7).
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
2537 is in the sequence because 2537 = 2^pi(2)+5^pi(5)+3^pi(3)+7^pi(7).
236256594 is in the sequence because 236256594 = (2 + 3 + 6 + 2 + 5 + 6 + 5 + 9 +4)*prime(2*3*6*2*5*6*5*9*4).
Do[h = IntegerDigits[m]; l = Length[h]; If[Min[h] > 0 && m == Sum[h[[k]], {k, l}]*(Prime[Product[h[[k]], {k, l}]]), Print[m]], {m, 655000000}]
Comments