A154316 Primes prime(k) such that abs(sum of digits of prime(k) - sum of digits of k) < 2.

2, 3, 17, 41, 53, 109, 131, 163, 241, 251, 263, 307, 317, 337, 347, 383, 457, 491, 701, 911, 1039, 1049, 1091, 1093, 1153, 1163, 1301, 1303, 1361, 1433, 1571, 1601, 1613, 1627, 1637, 1811, 1831, 1871, 1901, 1913, 1931, 1933, 1973, 2017, 2027, 2131, 2141

Offset

1,1

Links

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

Maple

From R. J. Mathar, May 01 2010: (Start)
A007953 := proc(n) add(d, d=convert(n, base, 10)) ; end proc:
A007605 := proc(n) A007953(ithprime(n)) ; end proc:
for n from 1 to 600 do if abs( A007605(n)-A007953(n)) <=1 then printf("%d, ", ithprime(n)) ; end if; end do: (End)

Crossrefs

Sequence in context: A153686 A042137 A067976 * A051084 A106860 A042699

Adjacent sequences: A154313 A154314 A154315 * A154317 A154318 A154319

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Jan 07 2009

Extensions

Corrected (433, 1217, 1229 removed ...) by R. J. Mathar, May 01 2010

Status

approved