OFFSET
1,1
COMMENTS
Corresponding primes:
101, 127, 271, 353, 461, 587, 613, 641, 919, 947, 1171, 1297, 1567, 2053, 2269, 2711, 3251, 3511, 3593, 3853, 4231, 4259, 4583, 5167, 5851, 5923, 6481, 6571, 6661, 6733, 6779, 6823, 6967, 7489, 7759, 7823, 8237, 8597, 8669, 8839, 8867, 9137, 9181, 9209, 9649, 9739, 9811, 9839, 9883.
Conjecture: a(n) ~ 27n. - Charles R Greathouse IV, Jun 18 2015
MATHEMATICA
Reap[Do[If[FixedPoint[Total[IntegerDigits[#]]&, n]==4*Mod[Prime[n], 9], Sow[{n, Prime[n]}]], {n, 2000}]][[2, 1]]
PROG
(PARI) n=0; forprime(p=2, 1e4, if(p%9*4==n++%9, print1(n", "))) \\ Charles R Greathouse IV, Jun 18 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 17 2015
STATUS
approved