A078400 Iterated sum-of-digits of A078403(n).
2, 3, 5, 7, 2, 5, 2, 5, 7, 2, 5, 7, 7, 2, 7, 2, 5, 5, 2, 5, 7, 5, 2, 2, 7, 2, 5, 7, 5, 2, 7, 2, 5, 5, 7, 2, 7, 5, 7, 2, 7, 5, 2, 5, 5, 7, 7, 2, 7, 2, 2, 5, 5, 7, 5, 2, 2, 5, 7, 5, 7, 2, 5, 2, 7, 2, 7, 7, 7, 5, 5, 5, 2, 2, 7, 2, 5, 7, 2, 2, 5, 2, 5, 2, 7, 5, 2, 5, 7, 5, 7, 7, 7, 2, 5, 2, 7, 2, 2, 5, 7, 2, 5, 7, 7
Offset: 1
Links
- Cino Hilliard, Proof of the Digital Root Theorem, posted on Yahoo group B2LCC, Feb 17 2003
Programs
-
PARI
drp(n) = { forprime(x=2,n, r = x%9; if(isprime(r), print1(r" "); ); ); }
Extensions
More terms from Joshua Zucker, Jul 24 2006